$ftp = Net::FTP->new("some.host.name", Debug => 0)
  or  die "Can't create Net::FTP object: $@\n";