while ($name = readdir(ORIG)){

##</code><code>##

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

##</code><code>##

my @Filenames = readdir ORIG;