Select Code to Download

use File::Basename;
my $dir = dirname($path);
...
while (glob $dir) {
  # this will loop through files in that directory, putting each filen
+ame in $_
}