MemoSoup

Mix of the things I always forget

Posted on 08/06/2010 by bigspoon

use Digest::MD5; use IO::File;


my $chk = Digest::MD5->new();
foreach my $file (@ARGV)

{

    $chk->addfile(IO::File->new($file));

print "$file -> ",$chk->hexdigest,"\n"; }

The additional details could be found on IBM site