my $url = URI->new( "http://www.perlmonks.org/index.pl" );
my $domain = $url->host;
print $domain;