use URI qw( );

my $url = URI->new(...);
my $base_url = $url->scheme . '://' . $url->host;