Re: What WHOIS module do I need to parallel the version on http://www.networksolutions.com/cgi-bin/whois/whois

[Wonko the sane]

Just for the heck of it, here is a quick and dirty whois.
This is more or less probably what Net::Whois::Raw does.
It of course is alot better and what you should probably consider using.

This method gets undesired results back from certain TLD whois servers.
Basically because some expect the search to be specified slightly different.

#!/usr/local/bin/perl5.6.0 -w
use strict;

use IO::Socket;

while ( my $domain = <> )
{
    chomp($domain);

    my($tld) = $domain =~ /\.([^\.]+)$/;

    my $SOCK = IO::Socket::INET->new(
        PeerAddr    => qq{$tld.whois-servers.net},
        PeerPort    => 43,
        Timeout     => 10,
    ) or die qq{[$domain] Can't connect to whois server: $!};

    print $SOCK qq{$domain \015\012};

    print <$SOCK>;

    close $SOCK;

    sleep(1);
}

Wonko