#!c:\perl\bin\perl.exe
use strict;
use File::Recurse; 
use File::Find;

my (@filearr, $path, $prod_file, $files, %files, %all);

sub recurse
{
	my $path=shift;
	my $matchpattern=shift;
	%files = Recurse(["$path"], 
	{
		match => "$matchpattern", nomatch => ''
	}); 			
	if (scalar keys %all)
	{
		@all{keys %files} = values %files;
	}
	else
	{
		%all=%files;
	}	
}

{
	recurse("c:\\data", "\.");
	
	foreach (sort keys %all) 
	{ 
		my $dirs=$_;
		foreach (@{ $all{"$_"} }) 
		{ 
			$files=$_;
			my $fullname="$dirs"."\\"."$files";
			push @filearr, "$fullname\n";
		}
	}	
  	
	foreach my $machine (@filearr)
	{
		chomp;
		open FH, "<$machine";
		my $ctr=0;
		foreach (<FH>)
		{
			chomp;
			$ctr+=$_;
		}
		close FH;
		$all{$machine}=$ctr;
	}	
}