#! /usr/local/bin/perl
use strict;
use warnings;

use Linux::SysInfo;
use Win32::SystemInfo;

my $this_system = $^O;

if ($this_system eq 'MSwin32') {
    my %windata;
    Win32::SystemInfo::MemoryStatus(%windata);
    ####
    #  process the results
    ####
} elsif ($this_system eq 'Linux') {
    my %linuxdata;
    %linuxdata = Linux::SysInfo::sysinfo() or die "Linux::SysInfo::sysinfo() failed";
    #####
    # process the results
    #####
} else {
     die "Undefined OS -- $this_system";
}

exit(0);