<?xml version="1.0" encoding="windows-1252"?>
<node id="421334" title="Whois script help" created="2005-01-11 12:03:15" updated="2005-06-29 10:31:17">
<type id="115">
perlquestion</type>
<author id="421328">
himanh</author>
<data>
<field name="doctext">
Hi,
I am the newest user in the PERL world. I hope that i will learn somethings from the Monks. My problem is simple, i have a list of domains in a text file on my server and i want to know each domains nameservers. Basically checking if any of my domains are transferred or still with me. I started with a small script i found on PM as below ::

&lt;code&gt;
#!/usr/local/bin/perl

use Net::Whois::IP qw(whoisip_query);
use strict;
my $ip = "www.yahoo.com";
my $tt = 0;
my @tyy;


my $response = whoisip_query($ip); 
foreach (sort keys(%{$response}) ) { 
    print "$_ $response-&gt;{$_} \n"; 
    $tyy[$tt] = "$_ $response-&gt;{$_} \n"; 
    $tt++;
}
&lt;/code&gt;
I thought this will give me all the WHOIS data of yahoo.com but it came with this :: &lt;code&gt;
"The specified CGI application misbehaved by not returning a complete set of HTTP headers." &lt;/code&gt;

Can someone tell me why it is happening ? And if someone can help me with my actual problem of getting nameservers of domains that are in the text file with one domain in each line.

Thanks.</field>
</data>
</node>
