[11:31:01.54] C:\test>perl -E"

$#a=9e6; $a[$_-1]=$_ for 1..9e6; 

say for grep /$$/, `tasklist`"
perl.exe                      3396 Console                    1    292,188 K

[11:31:04.24] C:\test>