(@dir0) = readdir(ID) || print "Couldn't read directory contents.\n";