#!/usr/bin/perl -w
use warnings;
use JSON;
use CGI;

my $cgi = CGI->new();
my $string = $cgi->param('s');

$ns_lookup = `dig \@4.2.2.2 +norecurse +nocmd +noquestion +nostats +nocomments +authority +noadditional $domain NS`;
chomp($ns_lookup);

print "Content-type: text/html\n\n";
print $ns_lookup;