#!/usr/bin/perl -w
use strict;
my(@proc,%cpu,%mem,$cpu,$mem,$user,$key,$lup);
@proc = `ps -Ao "%U:%C:%z"`;
for ($lup=1;$lup<=$#proc;$lup++) {
   ($user,$cpu,$mem)=split(/:/,$proc[$lup]);
   $cpu{$user}+=$cpu;
   $mem{$user}+=$mem;
}
foreach $key(keys %cpu) {
   print "$key\t\t$cpu{$key}\t\t$mem{$key}\n";
}