Select Code to Download

my %hMem = (TotalPhys =>0, AvailPhys =>0);
Win32::MemoryInfo::MemoryStatus(%hMem,"MB");

sub MemoryStatus (\%;$) {
   my $return = shift;
...
   }
1;
}