Select Code to Download

my $contents = do { local (@ARGV, $/) = $filename; <> };

sub slurp {
    my ($filename) = @_;
...
    open my $fh, $filename or die "$filename: $!";
    return <$fh>
}