Select Code to Download

sub mem{ `tasklist /nh /fi "PID eq $$"` =~ m[(\S+ K)$] }

C:\test>\Perl22\bin\p1
[0]{} Perl> print `tasklist /nh /fi "PID eq $$"`;;

 perl.exe                      2524 Console                    1      
+9,384 K

[0]{} Perl> print `tasklist /fi "PID eq $$"`;;

 Image Name                     PID Session Name        Session#    Me
+m Usage
 ========================= ======== ================ =========== =====
+=======
 perl.exe                      2524 Console                    1      
+9,428 K