Select Code to Download

foreach (keys %Dir) {
     unless ($_ eq "." or $_ eq ".." or $_ eq "GONE" or $_ eq "") {
     push(@FileList,$_);
     }
 }

foreach $oFile(@FileList) {
         if ($oFTP->put("p:/charts/Sendtray/$oFile")) {
            if (move("p:/charts/Sendtray/$oFile","p:/charts/Sendtray/G
+ONE/$oFile")) {
...
            }
       }
   }