Netrunner 2004 October/NETRUNNER0410.ISO/regular/ActivePerl-5.8.4.810-MSWin32-x86.msi/_d3ffc6faf236a91607b7122c76e84d84

Text File | 2004-06-01 | 411 b | 18 lines

<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>