Select Code to Download

my $path = "C:/some/path";

...
my @filesInDir = grep { -f "$path/$_" } readdir( ORIG );

closedir ORIG;

while ( my $file = readdir( ORIG ))
{
...
    }
    print "$path/$file $verb a file\n";
}