<Job Id="WshShell">

<script language=PerlScript>

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

    $WshShell->Run("notepad", 5);

    $WshShell->AppActivate("Untitled - Notepad");



    my $message = "Hello from PerlScript!\n";



    for($i=0; $i < length($message); $i++) {

	$char = substr($message, $i, 1);

	$WScript->Sleep(100);

	$WshShell->SendKeys($char);

    }

</script>

</job>