Select Code to Download

sub slurp {
    local $/ = undef;
...
    close X or die "Can't close $_[0]: $!";
    $slurp;
}

my $contents = slurp("/home/foo/bar.txt");