#!/usr/bin/perl use Net::FTP; $ftp = Net::FTP->new("some.hostB.com", Debug => 0) or die "Cannot connect to some.host.name: $@"; $ftp->login("xxx",'xxx') or die "Cannot login ", $ftp->message; #$ftp->cwd("/pub") # or die "Cannot change working directory ", $ftp->message; $ftp->put("cron/eid_inv_ftp.pl"); $newftp = Net::FTP->new("some.hostC.com", Debug => 0) or die "Cannot connect to some.host1.name: $@"; $newftp->login("xxxx",'xxx') or die "Cannot login ", $newftp->message; print $newftp->pwd(); $newftp->put($ftp->get("/export/home/xx/debugtrans.pl")) or die "put failed ", $newftp->message; $newftp->quit; $ftp->quit;