perl -we "sub mem{system qq(tasklist /FI \"PID eq $$\"|findstr perl)}; mem();bless {}, qq(A$_) for 1 .. 1000000;mem()"

perl.exe                     29356 Console                    1      6.616 K
perl.exe                     29356 Console                    1  1.353.656 K