http://qs321.pair.com?node_id=249727


in reply to NSI-style WHOIS Module?

I've had success using Net::XWhois.

Try: 

use Net::XWhois;
$whois = new Net::XWhois( 'Server' => 'whois.networksolutions.com' );
$whois->lookup( 'Domain' => 'trac.org' );
print $whois->response();

[download]

In Section Seekers of Perl Wisdom