use strict;
use warnings;
use Data::TreeDumper;
use Sys::Statistics::Linux;

my $options = {
   SysInfo   => 2,
   CpuStats  => 2,
   ProcStats => 2,
   MemStats  => 2,
   PgSwStats => 2,
   NetStats  => 2,
   SockStats => 2,
   DiskStats => 2,
   DiskUsage => 2,
   LoadAVG   => 2,
   FileStats => 2,
   Processes => 2,
};

my $thresholds = {
   LoadAVG   => { avg_1 => 'gt:20' },
   NetStats  => { ttbyt => 'gt:4000000' },
   PgSwStats => { pswpout => 'gt:1' },
   Processes => { cmd => 'eq:(apache2)' },
   CpuStats  => {
      total => 'gt:80',
      iowait => 'gt:20'
   },
   MemStats  => {
      swapusedper => 'gt:80',
      realfreeper => 'lt:10',
   },
   DiskUsage => {
      '/dev/md1' => {
         usageper => 'gt:80'
       }
   },
};

my $lxs = new Sys::Statistics::Linux;
$lxs->set($options);
$lxs->init();
sleep(1);
my $stats = $lxs->get();
my $hits  = $lxs->search($thresholds);
print DumpTree($hits);