#!/usr/bin/perl
use warnings;
use strict;

my @files = <C:/temp/CHOP/*JUNE*>;

for my $file (@files){

    open my $fh, '<', $file
      or die "Can't open file $file: $!";

    my $count = 0;

    while (my $line = <$fh>){    

        print "$line" if $line =~ /Total/;
              
        $count++ if $line =~ /failed/;
    }
    
    if ($count){
        print "Total Volume Failed to Resolve in $file: $count\n";
    }
}

##</code><code>##

if ($line =~ /Total/ and $line != /failed/){
    print "$line\n";
}