[11:47:33.84] C:\test>perl -E"

$a=chr(0); $a x=9e6*4;substr($a,4*($_-1),4,pack'N*',$_) for 1..9e6; 

say for grep /$$/, `tasklist`"
perl.exe                      8028 Console                    1     40,308 K


[11:47:37.79] C:\test>