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