c:\test>perl -le"++$n for 1..1e2; system qq[tasklist /nh /fi \"pid eq $$\"] "

perl.exe                      7500 Console                    1      5,716 K

c:\test>perl -le"++$n for 1..1e3; system qq[tasklist /nh /fi \"pid eq $$\"] "

perl.exe                      3676 Console                    1      5,712 K

c:\test>perl -le"++$n for 1..1e4; system qq[tasklist /nh /fi \"pid eq $$\"] "

perl.exe                      6048 Console                    1      5,732 K

c:\test>perl -le"++$n for 1..1e5; system qq[tasklist /nh /fi \"pid eq $$\"] "

perl.exe                      5648 Console                    1      5,720 K

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

perl.exe                      8620 Console                    1      5,736 K

##</code><code>##

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

perl.exe                      2664 Console                    1    109,576 K