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