Perl module URI

#!/usr/bin/perl
use warnings;
use strict;

use URI;

my $uri = URI->new("http://xxx.yy.ch:8080/a/b/c.html?vier=4&fuenf=5");

print "Scheme: ",$uri->scheme,"\n";
print "Path:   ",$uri->path  ,"\n";
print "Host:   ",$uri->host  ,"\n";
print "Port:   ",$uri->port  ,"\n";
print "Query:  ",$uri->query ,"\n";

Scheme: http
Path:   /a/b/c.html
Host:   xxx.yy.ch
Port:   8080
Query:  vier=4&fuenf=5

#!/usr/bin/perl
use warnings;
use strict;

use URI;

my $absolute_url = 'http://www.host.xyz/path/to/a/page.html';
my $relative_url = '../../of/another/resource.html';

print URI->new_abs($relative_url, $absolute_url), "\n";

http://www.host.xyz/path/of/another/resource.html