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

 perl.exe                      2524 Console                    1      9,384 K