say scalar(@{[readdir $dh]});