#! /usr/bin/perl
use strict;
use warnings;
my $psu=system($ENV{"HOME"}."/bin/psu")==0;
local *F;
open F,"/usr/bin/top -b -n2 -d1|" or die;
my $top=0;
while (<F>) {
  /^top / && $top++;
  /^$/ && $top++;
  next if $top!=5;
  /^(?:\s*\S+){8}\s*(\S+)\s*\S+\s*([^:\s]*):/ or next;
  next if $1<90;          # CPU %
  next if $2<($psu?30:1); # minutes it has run
  tr/'//d;
  system "DISPLAY=:0 xmessage -timeout 30 -default okay -center '$_' 2>/dev/null";
  exit 0;
}
close F or die;