perl -MFile::Spec -e " die File::Spec->catfile( qw[ foo /bar baz ], shift ) "  bar

##</code><code>##

perl -MURI::URL -e " die URI::URL->new(q[foo/bar/baz], q[http://bar.com/])->canonical; "

perl -MURI::URL -e " die URI::URL->new(q[foo/bar/baz], q[http://bar.com/])->abs; "