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