diff --git a/dns/axfr.pl b/dns/axfr.pl
new file mode 100755
index 0000000..5f8cfc4
--- /dev/null
+++ b/dns/axfr.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+use strict;
+use Net::DNS;
+
+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";
+}