Select Code to Download

ZoneXFer('domain.name');
...
...
        }
        print "\n";
}

$ perl cmp_hosts.pl
Querying DNS for domain.name - Zone transfer ...
...
                 'tsig_rr' => undef,
                 'srcport' => 0
               }, 'Net::DNS::Resolver' );

        $res->axfr_start("$domain");
        print Dumper($res);
...
               print "here\n";
            #$rr->print;
        }