while ($name = readdir(ORIG)){