$base = File::Spec->rootdir(); 
$path = 'home/me/test/';
$rel_path = File::Spec->abs2rel( $path, $base ) ;
chdir $rel_path;