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