Select Code to Download

C:\test>perl -E"say `tasklist|find \"$$\"`; $#a = 1e6; say `tasklist|f
+ind \"$$\"`; undef @a; say `tasklist|find \"$$\"`"
perl.exe                    247600 Console                    1      4
+,676 K
perl.exe                    247600 Console                    1     12
+,552 K
perl.exe                    247600 Console                    1      4
+,720 K

C:\test>perl -E"say `tasklist|find \"$$\"`; $#a = 1e6; $a[$_]=$_ for 0
+..1e6-1; say `tasklist|find \"$$\"`; undef @a; say `tasklist|find \"$
+$\"`"
perl.exe                    293992 Console                    1      4
+,688 K
perl.exe                    293992 Console                    1     36
+,872 K
perl.exe                    293992 Console                    1     29
+,044 K