Help for this page
$ENV{PATH} = join ';', 'C:\\123', '"C:\\Program Files\\456"', $ENV{PATH};
$ENV{PATH} = qq{C:\\123;"C:\\Program Files\\456";$ENV{PATH}};