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

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