Select Code to Download

 
opendir THEDIR, "$basepath$ARGV[0]" or die "Unable to open directory: 
+$!";
my @allfiles = readdir THEDIR;
...
{
    .....
}