#!/usr/bin/perl

use strict;
use warnings;

use URI;

my $myurl = 'http://example.org/a/b/c/d/e/y.html';

print "BasisUrl = $myurl\n\n";

for my $u ( 
	'http://example.org/x/../../../../../x.htm', 
	'../../../../../x.htm',
	'../x.htm',
	'././../././../../x.htm',
	'././../././../.././../.././../.././../../../x.htm'
) {
	print "$u = ", URI->new_abs($u, $myurl), "\n";
}