my $slurp = do { local (@ARGV, $/) = 'foo.txt'; <>};