#!c:\perl\bin\perl.exe

use strict;
use warnings FATAL => 'all';
use Fcntl qw[:flock];

my $impressions = 0;
my $FH = 'C:\\scripts\\20040120\\mr\\imp\\';

chdir $FH or die "$!";

while (glob '*Jan2004*.txt') {
    open FH, $_ or die $!;
    flock FH, LOCK_SH or die $!;
    while (<FH> ) {
        chomp;
        if ( /Impressions:/ ) {
        my($text, $value) = split(/:/, $_);
        print "Impressions: $value";
        print "\n"
        #$impressions += $value;
     }
    }
    close FH or die $!;
  }

print 'Total impressions: ', $impressions or die $!;<br>