Without wracking my brain too hard, I think you are looking for File::Spec

#!/usr/bin/perl
use File::Spec;

my $abs_path = File::Spec->rel2abs( $rel_path );


my $rel_path = File::Spec->abs2rel( $path, $base );
[download]