$ time perl -MDigest::MD5 -e 'while($f=shift){open F,$f or do {warn $!; next}; binmode F; print Digest::MD5->new->addfile(*F)->hexdigest, " $f\n"; close F; }' * > /dev/null