Help for this page

Select Code to Download

Select or download this

use Digest::MD5;
use Digest::MD5::File;
...
        print $MD5 "CHECKSUM: $finalmd5\n";
        close $MD5;
        print "Made MD5 file for $p00\n";

Select or download this

$filemd5->addfile($MD5);
            my $md5value = $filemd5->hexdigest();
...
    }
        my $finalmd5 = $qcmd5->hexdigest();
        print $MD5 "CHECKSUM: $finalmd5\n";