$ftp = Net::FTP->new($host, Debug => 0)
      or die "Cannot connect to $host: $@";