open( ERRLOG, ">>c:\\error.txt" );
foreach (@DIR) {
  print "$directory\\$_\n";
  system("echo $directory\\$DIR[$a] >> c:\\dump.txt");
  system("identify -verbose $directory\\$_ >> c:\\dump.txt")
    and print ERRLOG "ERROR: $directory\\$_\n";
}