use warnings;
use strict;
use Net::DNS;
use Data::Dumper::Simple;

my $dnsserver;
my @resolver;

#@resolver=qw[192.168.50.50, 192.168.10.98];
#foreach $dnsserver (@resolver) {
	#print "Validating Entries against $dnsserver\n";
	my $resolver = Net::DNS::Resolver->new(
		nameservers =>[qw(192.168.50.50 192.168.10.98)],
		recurse     => 0,
        debug       => 1,
	);
	my $ip = "192.168.50.70";
	print " ##### Resolver State ##### \n";
			$resolver->print;
	print "\n\n ##### End Resolver State ##### \n";
	
	my $target_ip = join('.', reverse split(/\./, $ip)).".in-addr.arpa";

	my $query = $resolver->query($target_ip, 'PTR');
	my $reply = $resolver->search("garytest.fedlab.local");
	#warn Dumper(\$query, \$reply);

	if ($query) {

	  foreach my $answer ($query->answer) {
		next unless $answer->type eq 'PTR';
		print $answer->rdatastr, "\n";
	  }

	}
	else {
	  print "query failed: ", $resolver->errorstring, "\n";
	}

	if ($reply) {
		foreach my $rr ($reply->answer) {
			next unless $rr->type eq "A";
			print $rr->address, "\n";
	}
	} else {
			warn "query failed: ", $resolver->errorstring, "\n";
	}
#}