Re^2: Whois script help

[himanh]

in reply to Re: Whois script help
in thread Whois script help

Hi, I also tried this

#!/usr/bin/perl

use Net::DNS;
  my $res   = Net::DNS::Resolver->new;
  my $query = $res->query("yahoo.com", "NS");
  print "Hi";
  if ($query) {
      foreach $rr (grep { $_->type eq 'NS' } $query->answer) {
          print $rr->nsdname, "\n";
      }
  }
  else {
      warn "query failed: ", $res->errorstring, "\n";
  }

It gives me Internal Server Error. Any help ??