Select Code to Download

use File::Find::Rule;
my $root_in = "E:/PGPTool/dept/AIS/dropbox";
...
foreach (@ARGV) {
   print "$_\n";
}

glob ("'$root_in/$_'"), @ARGV;