while (defined($dir = readdir UPL_DIR)) {