for my $nshash (@namesvr) {
        $nshash->{RESOLVER}  = Net::DNS::Resolver->new (
             nameservers => [$nshash->{NAME}],
             recurse     => 1, ## do recursive lookups
             retry       => 1,
             debug       => 0,
             );
    
}

##</code><code>##

   my $ptr = nsqry($namesvr[$ids]->{RESOLVER}, $ip) ;