Select Code to Download

C:\sources>perl w32jobobj.pl 50 100
Opened process PID 14332Success, Perl assembled the 52428812 bytes lon
+g string.
It will now be printed to STDOUT.  2 kernel handles were leaked in thi
+s code.
This is a good time to hit Ctrl-C instead of hitting Spacebar or Enter
+.Press any
 key to continue . . .

C:\sources>perl w32jobobj.pl 110 100
Out of memory!
Opened process PID 7844
C:\sources>

# this script leaks 2 kernel handles, fix that before putting into pro
+duction
use Win32::API;
...
        ."This is a good time to hit Ctrl-C instead of hitting Spaceba
+r or Enter.";
    system 'pause';
    print $str;