Select Code to Download

sub quickMD5 {
    my $fh = shift;
...
    }
    return $md5;
}

#! perl -slw
use strict;
...
my $qmd5 = quickMD5( *FH );
printf "Partial MD5 took %.6f seconds\n", time() - $start;
print "Partial MD5: ", $qmd5->hexdigest;

C:\test>md5t 500MB.csv
Processing 500MB.csv : 536870913 bytes
...
Processing 25GB.csv : 26843545600 bytes
Full MD5 took 302.419120 seconds
Full MD5: 24ce5b913f2f49876f0f24031b9b5d9b