c:\test>\perl32\bin\perl -mversion -e"print $version::VERSION; system qq[tasklist /fi \"pid eq $$\"]"
0.76
Image Name                     PID Session Name        Session#    Mem Usage
========================= ======== ================ =========== ============
perl.exe                     26008 Console                    1      7,712 K

c:\test>\perl64\bin\perl -mversion -E"say $version::VERSION; system qq[tasklist /fi \"pid eq $$\"]"
0.78

Image Name                     PID Session Name        Session#    Mem Usage
========================= ======== ================ =========== ============
perl.exe                     42052 Console                    1      6,524 K