use strict;


use Data::Dumper;
use Net::Whois;


my $url = 'www.yahoo.com/';

$url =~ m/^([^\/]+)\//;
$1 =~ m/([^.]+\.[^.]+)$/;
my $domain = $1;

print STDERR "$url\nhitting whois for $domain...\n";
my $w = new Net::Whois::Domain $domain;
die unless $w and $w->ok;

print join("\n",
	   $w->domain, 
	   $w->name,
	   $w->address,
	   $w->country);
if (my $c = $w->contacts) {
    for my $t (sort keys %$c) {
	print "    $t:\t";
	print map { "\t$_\t" } @{$$c{$t}};
    }
}
print "\n";