in reply to $ftp not connecting to server

$ftp = Net::FTP->new( $server, Passive => 1, Debug => 0 ) or die $@;
messages retruned.

What messages were returned? Can you set Debug => 1?