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