my $ftp = Net::FTP->new($host, Debug => 0, Passive => 0)
    or die "Could not connect to '$host': $@";