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

my $dnsserver;
my @resolver;

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

	my $query = $resolver->query($target_ip, 'PTR');
	my $reply = $resolver->search("garytest.fedlab.local",'A');
	warn Dumper(\$query, \$reply);
	if ($query) {
		# Print total count Here before Dispalying
		# Print "Total # of Hostnames found: ",(code) , "\n";
		print "\n\nHost names found......\n";
	  foreach my $answer ($query->answer) {
		my $value=$answer->rdatastr;
		chop $value if ($value =~/.$/);
		print "\t", $value, "\n";
	  }
	}
	else {
	  print "\tReverse Lookup failed: ", $resolver->errorstring, "\n";
	}

	if ($reply) {
		# Print total count Here before Dispalying
		# Print "Total # of IP found: ",(code) , "\n"; #
		print "\n\nIP Address Found found......\n";
		foreach my $rr ($reply->answer) {
			print "\t", $rr->address, "\n";
	}
	} else {
			warn "\tForward Lookup Failed: ", $resolver->errorstring, "\n";
	}
}