while (defined($name = readdir(ORIG))){