请问这段perl 代码是何意思？

sub browser {
my ($self,$repl) = @_;
$repl ||= $self->repl;
return $repl->declare(<<'JS')->();
function () {
...
return win.getBrowser()
}

JS
};

看到perl module里面好多这种代码，在sub里有一个function (), 这是什么用法？ 另外在这个function之前，已经return了，
那这个function起什么作用呢？回调？ 具体怎么来使用的？谢谢！
perl不是太熟，请指教。

[解决办法]
google perl here doc

简单的说，中间的一段JavaScript代码（从function()开始，到JS那行结束），被当作文本传给了declare(...)。

Perl code

<<JScode...JS