#!/usr/bin/perl

use lib "/home/mccre004/File-Recurse-0.11/blib/lib";
use File::Recurse;

$directory="/prodmtdata/geo/gpms/log";
my %files = Recurse([$directory], {match => '', nomatch => '\.bak$'});


foreach (sort keys %files) {
#print "\$files =$files\n";
#print "\$_ = $_\n";
$dir =$_;
opendir DH,$dir;
$dircounter++;

foreach $file (readdir DH){
#print "\$file = $file\n";
$dotlocatation=index($file, ".");
$extension=substr($file,$dotlocatation);
#print "\$extension = $extension\n";
#$dircounter++;

if ($ext eq ".err"){
$errdir[$errcounter]=$dir;
$errcounter++;
};

};


};

if ($errcounter >0){

print "The following $errcounter directories have error files in them:\n";
$newcounter=1;

foreach $errdir (@errdir){
print "$newcounter:  $errdir\n";
$newcounter++;
};

}else{
print "No error files were found in the $dircounter directories searched.\n"; 
};