fingerprint.pl can be downloaded from http://staff.washington.edu/~jdlarios/fingerprint_pl.txt Checksums for fingerprint.pl Version 1.1 (2001.03.27): a83196b844c251398e18045356e4ae7e Version 1.0 (2001.03.27): e0d301947c25aae726cdb72e1793083f The self-test code looks like this: sub self_check { my $i = 0; my ($tmp, $data) = ("",""); open(SELF, $0) || my_error("Unable to check myself for consistency. That's odd."); $tmp = ; $tmp = ; while () { $data .= $_; } close SELF; if ($cksum eq "") { my_error("Checksum is " . Digest::MD5->new->add($data)->hexdigest . "\nPlease see the note at the bottom of the source for information."); } if ($cksum ne Digest::MD5->new->add($data)->hexdigest) { my_error("Failed internal consistency check. See note at bottom of source."); } }