~>perl -MURI -E '$x = "http://a.com/a/b/c/d/e.json?x=1&y=2"; $y = "../../../"; say URI->new_abs($y,$x);'
http://a.com/a/