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