Check MD5 sum recursive

CheckMD5Sum.pl

#!perl


use strict;
use warnings;
use File::Find;
use Digest::MD5;

@ARGV=grep { -d or !warn "`$_': not a directory!\n" } @ARGV;
die "Usage: $0 <dir> [<dirs>]" unless @ARGV;

find { no_chdir => 1,
 wanted => sub {
  return unless -f;
  open my $fh, '<:raw', $_ or warn "Can't open `$_': $!\n" and return;
  print Digest::MD5->new->addfile($fh)->hexdigest, ' ', $_;
  } 
}, @ARGV;

__END__