1
2
3
4

use Digest::MD5;
my $file = "c:/test.txt";
open(FILE, ':raw', $file) or die "Can't open '$file': $!";
print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"