P:\test>perl -MWin32::SystemInfo CON
 Win32::SystemInfo::MemoryStatus(%m,'MB');
 printf '%15s := %15s'.$/, $_, $m{$_} for keys %m;
^Z
   TotalVirtual :=        2047.875
      TotalPage :=     501.4296875
      AvailPhys :=    112.84765625
      TotalPhys :=    223.23828125
        MemLoad :=               0
   AvailVirtual :=   2015.80859375
      AvailPage :=      308.515625