I strongly recommend using File::Spec:

    use File::Spec;
    $rel_path= File::Spec->abs2rel( $abs_path );
[download]

or

    use File::Spec::Functions qw( abs2rel );
    $rel_path= abs2rel( $abs_path );
[download]

You can also provide a second argument to abs2rel() that tells it to strip a directory other than the current working directory.

See also my review of File::Spec.

        - tye