use Net::ParseWhois;
use Data::Dumper;
my $w = Net::ParseWhois::Domain->new('yahoo.com');
die unless $w;
die unless $w->ok;
print "Domain: ", $w->domain, "\n";	
print "Name: ", $w->name, "\n";	
print "Tag: ", $w->tag, "\n";	
print "Address:\n", map { "    $_\n"	 } $w->address;
print "Country: ", $w->country, "\n";	   

##</code><code>##

Domain: n/a
Name: n/a
Tag: n/a
Address:
    n/a
Country: n/a