Select Code to Download

for my $nshash (@namesvr) {
        $nshash->{RESOLVER}  = Net::DNS::Resolver->new (
...
             );
    
}

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