Select Code to Download

perl -MURI::URL -e"$URI::ABS_REMOTE_LEADING_DOTS=1; die URI::URL->new(
+'../../foo.html','http://foo.org/a/b/c/')->abs"
http://foo.org/a/foo.html
...
    }
}
print join '/',@path;

use strict;
use URI::URL;
...
http://foo.org/bar/baz.html
/bar/baz.html
this is interesting