Select Code to Download

/dir1/file1
/dir two/file2

foreach my $dir (glob("*")) {
  foreach  my $file (glob("$dir/*")) {
      print "[$file]\n";
  }
}

use File::Glob qw(bsd_glob);
...
      print "file [$file]\n";
  }
}