use Net::XWhois;    



my $whois = new Net::XWhois DOMAIN => $domain;