#!/usr/bin/perl

$domain = $ARGV[0];

if (! -e "/var/named/${domain}.db") {
	print "Zonefile does not exist\n";
}

print "Checking ${domain}\n";

open(ND,"/var/named/${domain}.db");
while(<ND>) {
	if (/NS[\t\s]*(\S+)/) {
		print "Nameserver: $1\n";
	}
}