Select Code to Download

C:\test>perl -E"say `tasklist|find \"$$\"`; $x=chr(0); $x x= 2e6; say 
+`tasklist|find \"$$\"`; undef $x; say `tasklist|find \"$$\"`"
perl.exe                    139252 Console                    1      4
+,660 K
perl.exe                    139252 Console                    1      6
+,680 K
perl.exe                    139252 Console                    1      4
+,724 K

C:\test>perl -E"say `tasklist|find \"$$\"`; $x=chr(0); $x x= 1040352; 
+say `tasklist|find \"$$\"`; undef $x; say `tasklist|find \"$$\"`"
perl.exe                    129340 Console                    1      4
+,688 K
...
perl.exe                    241476 Console                    1      4
+,704 K
perl.exe                    241476 Console                    1      5
+,788 K
perl.exe                    241476 Console                    1      5
+,792 K