# Opens $dir and counts number of files
opendir my $DIR, $dir or die "Cannot opendir '$dir' because: $!";
my $fCount = grep "$dir/$_" !~ /\A\.\.?\z/, readdir $DIR;
closedir $DIR;

# Opens $dirL and counts number of files
opendir my $DIRL, $dirL or die "Cannot opendir '$dirL' because: $!";
my $fCountL = grep "$dirL/$_" !~ /\A\.\.?\z/, readdir $DIRL;
closedir $DIRL;