Help for this page
#!/usr/bin/env perl use warnings; ... my $url = URI->new( url( -base => 1 ) )->canonical; $url->path( '/some/new/path' ); print "$url\n";
www.example.com www.example.com http://www.example.com:8080/cgi-bin/test.cgi http://www.example.com:8080/some/new/path