my ($entries) = readdir $dh;