Update URL.pm

maybe return $path instead of $rel? (sub 'to_rel')