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