my $host = Net::FTP->new(HOSTNAME, Debug => 1)
    or die "Cannot connect to ", HOSTNAME, ": $@\n";