#!/usr/bin/perl

use strict;
use warnings;

use Net::DNS::Resolver::Recurse;

my $host = shift or die "Usage: $0 hostname\n";

my $res  = Net::DNS::Resolver::Recurse->new;

my $ans  = $res->query_dorecursion($host, 'NS');

my @ns;

foreach my $ns ($ans->additional)
{
    push @ns,
      sprintf "  %s (%s)\n",
        $ns->name,      # hostname
        $ns->rdatastr;  # ip
}

print "$host has ", scalar(@ns), " servers:-\n", @ns;