$rel_path = File::Spec->abs2rel('/home/me/test');