Just eliminate the $newerr variable.

my $ftp = Net::Ftp->new($host, Timeout => 15) or do {
    print "Cannot ftp to $host: $@\n";
    next;
};
print "Connect to $cli\n";
[download]