simple/dns/axfr.pl

#!/usr/bin/perl -w
use strict;
use Net::DNS;

sub usage {
    print STDERR "Usage: $0 zone nameserver\n" unless (@ARGV == 2);
    exit(1);
}

usage() unless (@ARGV == 2);

my $res = new Net::DNS::Resolver;
$res->nameservers($ARGV[1]);
my @zone = $res->axfr($ARGV[0]);
if (@zone) {
    foreach my $rr (@zone) {
	$rr->print;
    }
} else {
    print STDERR "query failed: ", $res->errorstring, "\n";
}