my $md5 = md5_hex( do{ local( @ARGV, $/) = $file; <> } );