foreach $oFile(@FileList) {
         if ($oFTP->put("p:/charts/Sendtray/$oFile")) {
            if (move("p:/charts/Sendtray/$oFile","p:/charts/Sendtray/GONE/$oFile")) {
            &LogSentFiles($oFile);
            $oFile = undef;
            }
       }
   }