#!/usr/bin/perl
my %count;
@files = <C:/temp/CHOP/*JUNE*>;
foreach $file (@files) {
open (FILE,"$file");
print "=====$file=====\n";
while($line= <FILE>) {
print "$line" if $line =~ /Total/;
}
while ($failed= <FILE> ) {
if (failed =~ /failed/)
{
$count{$failed)++;
}
}
close  FILE;
print "Total Volume Failed to Resolve:$count{$failed} \n" ;
}