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

##</code><code>##

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