#!/usr/local/bin/perl


use Net::DNS;

$domain = $ARGV[0];

#192.48.79.30 is j.gtld-servers.net

my $res = Net::DNS::Resolver->new(
        nameservers => [qw(192.48.79.30)],
        recurse     => 1,
        debug       => 1,
  );

$packet = $res->query("$domain", 'NS');

@authority = $packet->authority;


foreach $rr (@authority) {
        print $rr->string, "\n";
        }