use URI;
my $my_url = 'http://www.perlmonks.org:8080/index.pl?whatever';
my $uri = URI->new($my_url);
my $host = $uri->host();