Help for this page

Select Code to Download

Select or download this

use Net::FTP;

...
      or die "put failed ", $ftp->message;

$ftp->quit;

Select or download this

$ftp = Net::FTP->new("xxx", Debug => 1, Passive => 1)
    or die "Cannot connect to host: $@";