OK maybe I was being to exact on the script. Here is a simple script that just puts a file in a directory and moves it, which copies and deletes the file. You will have to use your own ftp server to test it but its easier to debug. This script does not work either for me and I get the error: Failure writing to local file. which makes me think that it might be something with the ftp, maybe.

 #!/usr/bin/perl -w
use strict;
use Net::FTP;
use Net::FTP::File;

my $ftp = Net::FTP->new("updraft.unl.edu", Passive => 0);
$ftp->login("uas",'grruvi');

$ftp->cdup;
$ftp->cwd("/home/uas/Scripts/GPS/users");
$ftp->put("test.txt","test.bak") or die $ftp->message;
$ftp->move("test.bak","test") or die $ftp->message;

$ftp->quit;
[download]