use warnings; use strict; use URI; my $x = 'http://a.com/a/b/c/d/e.json?x=1&y=2'; my $y = '../../../'; my $u = URI->new($y); print $u->abs($x), "\n"; __END__ http://a.com/a/