my $dirname = "extracted";

open  (my $md5file, '<', "C:/md5");
	binmode($md5file);

foreach my $file (<$dirname/*>) {
	next if -d $file;
open( my $FILE, $file );
	binmode($FILE);

$file =~ s{.*/}{};
	
my $md5hash = Digest::MD5->new->addfile($FILE)->hexdigest;
if ($md5hash =~ $md5file){
	print "$file MATCH\n";
	} else {
	print "$file NO MATCH!\n";
	}
}