Select Code to Download

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

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

perl.exe                      8620 Console                    1      5
+,736 K

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

perl.exe                      2664 Console                    1    109
+,576 K