FTPing of files between remote servers.

[Anand . V]

Hi All,

I am using following code to transfer a file from remote host to local
system.

sub transferEJSFiles{
        
        $ftp = Net::FTP->new($sourceServer, Timeout => 30) or die "Can't
contact $sourceServer: $!";  

        $ftp->login($sourceUser,$sourcePassword) or die "Can't login
($sourceUser):", $ftp->message;

        
$ftp->cwd("/home/clients/pvcs/adk/Installables/$ejsVersion/ejs/solaris/") or
die "Cannot change working directory ", $ftp->message;

        $ftp->binary() or die "Cannot Convert to Binary Mode ",
$ftp->message; 

        $ftp->get("setup","$ejsTargetRoot/$ejsVersion/ejs/solaris/setup") or
die "get failed for setup", $ftp->message;      

        $ftp->cdup() or die "Can't moveup to parent directory : ",
$ftp->message;
                
        
$ftp->get("archive.dat","$ejsTargetRoot/$ejsVersion/ejs/archive.dat") or die
"get failed for archive", $ftp->message;

        $ftp->quit;
}

Could some suggest how can i transfer a file from one remote host to another
remote host using FTP module. Is there any way of doing this . Please guide
me

Regards
Anand