Help for this page

Select Code to Download

Select or download this

sub slurp {
    open my $fh, "<", $_[0]
...
    local $/;
    my $result = <>;
};