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);
}
[download]

Wonko