Select Code to Download

Select or download this

use Net::FTP;
    $ftp = Net::FTP->new("ftp.xyz.com", Timeout => 300, Debug => 1) or
+ die "Cannot contact $host: 

...
    $ftp->cwd("/");
    $ftp->put("/directory-a/filename-b");
    $ftp->quit;

Select or download this

Net::FTP>>> Net::FTP(2.75) 
Net::FTP>>>   Exporter(5.58) 
Net::FTP>>>   Net::Cmd(2.26) 
...
Net::FTP=GLOB(0x82f8768)>>> QUIT  
Net::FTP=GLOB(0x82f8768)<<< 221-Goodbye. You uploaded 0 and downloaded
+ 0 kbytes. 
Net::FTP=GLOB(0x82f8768)<<< 221 Logout.