Select Code to Download

foreach my $ns ( grep {defined} @_ ) {
  if ( _ipv4($ns) || _ipv6($ns) ) {
    push @ip, $ns;
...
    $defres->{persistent} = $self->{persistent};
    my $names  = {};
    my $packet = $defres->send( $ns, 'A' );

  use Net::DNS::Resolver::Base;
  my $orig= \&Net::DNS::Resolver::Base::nameservers;
...
  };

  # and then the rest of your program

  use Net::DNS::Resolver;
  Net::DNS::Resolver->tcp_timeout(1);
  Net::DNS::Resolver->udp_timeout(1);

  # remainder of your program

sub AUTOLOAD {                          ## Default method
  my ($self) = @_;

...

  goto &{$AUTOLOAD};
}