Select Code to Download

opendir(DIR, $some_dir) || die "Could not open $some_dir - $!\n";
for my $fileFound(readdir(DIR)) {
...
   next if (-d $fullPath);
   # do stuff with each file in $some_dir
}