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