my $slurp = do {local(@ARGV, $/) = "inputfile"; <>};