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

my $dir = getcwd;;
my @files;
find(\&get_dir,$dir);

for my $file(@files)
   {
    print $file,"\n";
    my $md5 = Digest::MD5->new;
    $md5->add($file);
    my $digest = $md5->hexdigest;
    print "Digest is $digest\n";
}

sub get_dir
   {
    push(@files,$File::Find::name) if(-f $File::Find::name);
    }