while (defined ($_ = readdir($eh)))