my $res = Net::DNS::Resolver->new(
    nameservers => [qw(ns7.xx.com xx.xx.xx.com)],
    recurse     => 0, ## dont do recursive lookups
    debug       => 0,
);

my $query = $res->search("10.xx.xx.55");
use Data::Dumper;
#print Dumper($query);
#exit;
  if ($query) {
      foreach my $rr ($query->answer) {
          next unless $rr->type eq "PTR"; ## skip record if not eq PTR ##
          print $rr->ptrdname, "\n";
          print Dumper($rr);
      }
  }
  else {
      warn "query failed: ", $res->errorstring, "\n";
  }

#for my $key (keys %ns7IP) {
#    print $key,' => ',join "\n\t", sort @{$ns7IP{$key}},"\n";
#}
print "\n";
"DNS_results.plx" 71 lines, 2813 characters