Select Code to Download

c:\test>p1
[0] Perl> system qq[tasklist /fi "PID eq $$"];;
...
Image Name                   PID Session Name     Session#    Mem Usag
+e
========================= ====== ================ ======== ===========
+=
perl.exe                     888                         0      3,256 
+K

VMem::~VMem(void)
{
...
    Init();
}