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

##</code><code>##

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

 perl.exe                      2524 Console                    1      9,384 K

##</code><code>##

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

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