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