my $entries = -2;
++$entries while readdir $dh;