use strict;
use warnings;
use Net::DNS;

my $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,
  );

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

my @authority = $packet->authority;

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