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?