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

update: and use URI::URL; ;)

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

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

update: Also, it's nice that you used HTML::Template, but you might consider a lighter weight alternative to CGI (CGI::Simple) since you're not using CGI to generate x?html.

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.