$ftp = Net::FTP->new($host, Timeout=>30, Debug=>1) or die "Can't connect: $@\n"