

my $lineCount = 0;
my $dir = 'I:\My Business\Bitjoe Communications\BitJoe Gnutella - Paris\PhexProxy\PhexProxy';
my $dir3 = 'I:\My Business\Bitjoe Communications\BitJoe Gnutella - Paris\PhexProxy';

opendir(DIR, $dir) or die $!;

while (my $file = readdir(DIR)) {
	open(RH,"<$dir\\$file");
	while(<RH>){
		$lineCount++;
	};
	close RH;

}

closedir(DIR);

opendir(DIR, $dir3) or die $!;

while (my $file = readdir(DIR)) {
	open(RH,"<$dir3\\$file");
	while(<RH>){
		$lineCount++;
	};
	close RH;

}

closedir(DIR);

print "$lineCount Zeilen Code\n";
sleep 10;