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