Select Code to Download

                                                            #PID
       perl -E "for(1..240){system qq(tasklist /fi \"PID eq 17360\" /n
+h);sleep 60}"
...


       #it leaked 31.8K every minute

perl -lanE "$res{$F[-2]}++;END{print map{qq($_ = $res{$_}\n)} sort {$a
+<=>$b} keys %res}" c:\SCRIPTS\leakedmemory.log
 = 283 # blanks lines emitted by 'tasklist'
...
16.260 = 6
16.512 = 9
16.768 = 5