use strict;
use warnings;
use Cwd;
use File::Find;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use File::Basename;
require Encode;

$|++;
my $ctx = Digest::MD5->new;
my $totcnt=0;
find (&d, "C:/0work/pics/Done");
binmode STDOUT, ":utf8";

sub d {
  my $file = $File::Find::name;
  print $file, "\n";
  return unless -f $file;
  open(I,$file);
  binmode(I);
  $ctx->addfile(*I);
  my $digest = $ctx->b64digest;
  print $file, $digest, "\n";
  close(I);
}