Select Code to Download

$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): $@";