ZoneXFer('domain.name');
...

sub ZoneXFer {
        my $domain = pop @_;
        print "Querying DNS for $domain - Zone transfer ...\n";
        my $res  = Net::DNS::Resolver->new (
                recurse => 1,
                debug   => 1,
        );

        my @zone = $res->axfr($domain);
        print Dumper($res);

        foreach $rr (@zone) {
                $rr->print;
        }
        print "\n";
}

##</code><code>##

$ perl cmp_hosts.pl
Querying DNS for domain.name - Zone transfer ...
;; axfr_start(domain.name, IN)
;; axfr_start nameserver = 198.205.83.10
;; read_tcp: expecting 2 bytes
;; read_tcp: received 2 bytes
;; read_tcp: expecting 37 bytes
;; read_tcp: received 37 bytes
;; received 37 bytes
;; HEADER SECTION
;; id = 32651
;; qr = 1    opcode = QUERY    aa = 0    tc = 0    rd = 1
;; ra = 0    ad = 0    cd = 0    rcode  = NXDOMAIN
;; qdcount = 1  ancount = 0  nscount = 0  arcount = 0

;; QUESTION SECTION (1 record)
;; domain.name. IN      AXFR

;; ANSWER SECTION (0 records)

;; AUTHORITY SECTION (0 records)

;; ADDITIONAL SECTION (0 records)
;; Response code from server: NXDOMAIN

$VAR1 = bless( {
                 'persistent_tcp' => 0,
                 'cdflag' => 1,
                 'stayopen' => 0,
                 'querytime' => undef,
                 'udppacketsize' => 0,
                 'srcaddr' => '0.0.0.0',
                 'domain' => 'domain.name',
                 'answersize' => 0,
                 'answerfrom' => '',
                 'sockets' => {
                                'dns_server1_ip:53' => bless( \*Symbol::GEN0, 'IO::Socket::INET' )
                              },
                 'debug' => 1,
                 'axfr_soa_count' => 0,
                 'searchlist' => [
                                   'domain.name'
                                 ],
                 'defnames' => 1,
                 'retrans' => 5,
                 'tcp_timeout' => 120,
                 'errorstring' => 'Response code from server: NXDOMAIN',
                 'nameservers' => [
                                    'dns_server1_ip',
                                    'dns_server2_ip'
                                  ],
                 'port' => 53,
                 'axfr_sel' => bless( [
                                        ',
                                        1,
                                        undef,
                                        undef,
                                        undef,
                                        $VAR1->{'sockets'}{'dns_server1_ip:53'}
                                      ], 'IO::Select' ),
                 'usevc' => 0,
                 'retry' => 4,
                 'axfr_rr' => [],
                 'igntc' => 0,
                 'dnsrch' => 1,
                 'recurse' => 1,
                 'udp_timeout' => undef,
                 'persistent_udp' => 0,
                 'dnssec' => 0,
                 'tsig_rr' => undef,
                 'srcport' => 0
               }, 'Net::DNS::Resolver' );

##</code><code>##

        $res->axfr_start("$domain");
        print Dumper($res);

        while (my $rr = $res->axfr_next) {
               print "here\n";
            #$rr->print;
        }