
#!/usr/bin/perl
$cpulimit = "40.0";
$memlimit = "40.0";

 use Proc::ProcessTable;
 $t = new Proc::ProcessTable;
 foreach $p (@{$t->table}) {
    ($login,$pass,$uid,$gid) = getpwuid($p->uid);
    if ($login eq "root" or $login eq "nobody" or $login eq "mysql" or $login eq "named"){ next; }
    if ($p->pctcpu >= $cpulimit or $p->pctmem >= $memlimit) {	
    print "==================================================== \n";
    print "DANGEROUS PID: " , $p->pid, "\n";
    print "OWNED BY: ", $login, "\n";
    print "TIME: ", $p->time, "\n";
    print "DANGEROUS CMDLine: ", $p->cmndline, "\n";
    print "DANGEROUS CPU: ", $p->pctcpu, "\n";
    print "DANGEROUS MEM: ", $p->pctmem, "\n"; 
    } else {
   next;
   }
  }