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";
}