my $contents = do { local( *ARGV, $/); @ARGV = $file; <> }; # Slurp File contents