Help for this page
$ftp = Net::FTP->new($server) or die "Cannot connect to $server: $@";
$ftp = Net::FTP->new($server, Passive => 1) or die "Cannot connect to $server (Passive=$passiv +e): $@";