$path = "$path;\%\%PERL_PATHS\%\%";

##</code><code>##

$env->SetValue('PERL_PATHS', $new_dirs)
$path = "$path;$new_dirs;
$env->SetValue('Path', $path);