my $src = "p:/charts/Sendtray/";
my $dst = "p:/charts/Sendtray/GONE/";
while (@FileList) {
    my $oFile = shift @FileList;
    $oFTP->put("$src$oFile") and
        move("$src$oFile","$dst$oFile") and
            &LogSentFiles($oFile) or warn "$oFile didn't move\n";
}