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