# Opens $dir and counts number of files
opendir(DIR, $dir);
LINE: while(my $FILE = readdir(DIR)) {
next LINE if($FILE =~ /^\.\.?/);

$fCount++;
}
closedir(DIR);

# Opens $dirL and counts number of files
opendir(DIRL, $dirL);
LINE: while(my $FILE2 = readdir(DIRL)) {
next LINE if($FILE2 =~ /^\.\.?/);

$fCountL++;
}
closedir(DIRL);