while ($_ = readdir( $dh)) {