my $f = Net::FTP->new($host) or die "Can't open $host: $@\n";