#!/usr/bin/perl
# Displays memory info 
#
my $swap = 0; 
my $mem  = 0; 

foreach $_ (`free -m | grep -v "total"`)
{
  ($label, $total, $used, $free, $shared, $buffers, $cached) = split(/\s+/);
  if($label =~ /Mem/)
  {
     $used -= $cached;
     $mem = $used
  }
  if($label =~ /-\/+/) 
  {
      $mem += $used;
  }
  if($label =~ /Swap/)
  {
      $swap = $used
  }
}

   print "$swap\n";
   print "$mem\n";
   chop($a = `/usr/bin/uptime`);
   if ($a =~ /up (.* )\d+ users/) 
   {
      print "$1\n";
   }
   print "cygnus\n";