En réponse à ton premier message, as-tu essayé :

my $relativePath = File::Spec->abs2rel($parent_path) ;

my $path_1 = File::Spec->catfile($relativePath, "AutreDossier"); print...