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/
[download]