<Job Id="SpecialFolder">

<script language=PerlScript>

    $WshShell = $WScript->CreateObject("WScript.Shell");

    $numFolders = $WshShell->SpecialFolders->{Count};

    $title = "PerlScript & WSH Example";

    $style = 1;



    for($i=0; $i<$numFolders; $i++) {

	$ok_or_cancel =  $WshShell->Popup(

			 $WshShell->SpecialFolders($i), 

			 undef, 

			 $title, 

			 $style);



    exit if ($ok_or_cancel == 2);

}

</script>

</job>