Perl: get file checksum 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