require Win32::SystemInfo;
my %mHash = (TotalPhys => 0, AvailPhys => 0);
if (Win32::SystemInfo::MemoryStatus(%mHash))
{
    print $mHash{TotalPhys};
}