c:\test>perl -le"@a = 1 .. 1e6; system qq[tasklist /nh /fi \"pid eq $$\"] "

perl.exe                      2664 Console                    1    109,576 K