#!usr/bin/perl -w 

use strict;
use Fcntl qw[:flock];

my $impressions = 0;
my$iofile = '/other/scripts/daniel/input/c07_impressions_io.info';

open (IO, $iofile) || die("Could not open file 1!");

while (<IO> ) {
      chop;
      (my$FH, my$output, my$file2check) = split (/\s+/, $_); 

open OUT, ">> $output";

chdir $FH or die "$!";

while (glob $file2check) {
    open FH, $_ or die $!;
    flock FH, LOCK_SH or die $!;
    while (<FH> ) {
        chomp;
	if ( /Impressions:/ ) {
        my($text, $value) = split(/:/, $_);
        $impressions += $value if ($value =~ /\d+/);
           }
         }
    close FH or die $!;
      }
    }
print OUT 'Total impressions: ', $impressions or die $!;