use strict;
use warnings;

##</code><code>##

use autodie;

##</code><code>##

use strict;
use warnings;
use autodie;

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

for my $file (@files)
{
    my $count = 0;
    open(my $fh, '<', $file);
    print "=====$file=====\n";

    while (my $line = <$fh>)
    {
        if    ($line =~ /Total/)
        {
            print $line;
        }
        elsif ($line =~ /failed/)
        {
            ++$count;
        }
    }

    close $fh;
    print "Total Volume Failed to Resolve: $count\n" ;
}