<Job ID="Test">
<script language=PerlScript runat=server>
    $Shell = $WScript->CreateObject("WScript.Shell");

    $vars = $Shell->Environment("SYSTEM");

    foreach $item (Win32::OLE::in($vars)) {
	$WScript->Echo($item);
    }
</script>
</Job>
