#!/usr/bin/perl

# Rober Mccurdy http://rmccurdy.no-ip.com
#       this will total the resident memory used in a VPS by using `ps aux`
#

my $count;
$count = 0;

@ps_results = `ps aux`;

foreach(@ps_results)
{

@tmp = {};
@tmp = split(/\s+/,$_);
$count = $count + $tmp[4];
}

$total_procs = @ps_results - 1;

print "Total Processes: $total_procs  Memory Used: $count MB \n";