use warnings;
use strict;
use Net::DNS;

my @resolver = qw[192.168.50.50 8.8.8.8];
for my $dnsserver (@resolver) {
    print "Validating Entries against $dnsserver\n";
    my $resolver = Net::DNS::Resolver->new(
        nameservers =>[$dnsserver],
        recurse     => 1,
        debug       => 1,
    );
    print " ##### Resolver State ##### \n";
            $resolver->print;
    print "\n\n ##### End Resolver State ##### \n";

    my $query = $resolver->query('www.perlmonks.org', 'A');

    if ($query) {

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

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