
#!/usr/local/bin/perl
# 15122010 // NN
# PID USER CPU PROC
 use Term::ANSIColor;
 system("/usr/local/sbin/cpu_gather.sh");
 
 print "PID \t USR \t \t CPU \t PROC \n";
 print "\n" ;
  open TMPFILE, "<", "/tmp/brandcpu" or die $!;
 while(<TMPFILE>){
  $line = $_;
  chomp($line);
  ($pid, $usr, $cpu, $proc, $proc1) = split(" ",$line);
    chomp($pid, $usr, $cpu, $proc);
    if ( $cpu > "20") {
   print color 'bold red';
 print "$pid \t $usr \t $cpu  $proc $proc1\n";
   print color 'reset';
   } else {
 print "$pid \t $usr \t $cpu  $proc $proc1 \n";
 }
}
 close TMPFILE;
  system('rm -rf /tmp/brandcpu');