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