#!/usr/bin/perl -w

use Net::DNS;

# If the user didn't specify the domain name of a zone and the domain name
# or address of a name server to transfer from, exit
die "Usage:  $0 <zone> <name server>" unless (@ARGV == 2);

# Create a resolver object
my $res  = Net::DNS::Resolver->new;

# Use the specified name server
$res->nameservers($ARGV[1]);

# Transfer the zone
my @zone = $res->axfr($ARGV[0]);

# Print each record in the zone
foreach $rr (@zone) {
	$rr->print;
}