Been there. For me, the main problem was how to use abs2rel() - somehow I think the calling convention is backwards.

Example:

sub make_relative_path_to_website {
    my ($file) = @_;
    return File::Spec::Unix->abs2rel($config->{START_DIR},
                                     File::Spec::Unix->rel2abs($file))
+;
}
[download]

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com