Select Code to Download

my $num_errors = 0;
foreach my $file (keys %hash1)
...
   }
}
print "total errors = $num_errors\n";

my $num_errors=0;foreach my $file (keys %hash1){if (!exists ($hash2{$f
+ile})){print "file: $file doesn't exist in 2nd directory\n";}elsif ($
+hash1{$file} ne $hash2{$file}){print "md5 didn't match for $file\n";$
+num_errors++;}}print "total errors = $num_errors\n";