#!/usr/bin/env perl
use warnings;
use strict;
use CGI qw/:standard/;
use URI;

print header("text/plain");
print server_name(), "\n";
print virtual_host(), "\n";
print url(), "\n";
my $url = URI->new( url( -base => 1 ) )->canonical;
$url->path( '/some/new/path' );
print "$url\n";