#!/usr/local/bin/ksh

while (( 1 )) 
do
  top -b | grep Inuse | awk '{print $8, $9; }' |\
perl -w -e '
while (<>)
{
  chomp;
  ( $inusepercent , $inuselabel , @trash ) = split;
  warn "excess trash on input line" if 0 + @trash;

  $inusenum = $inusepercent;
  $inusenum  =~ s/^(\d+)%$/$1/;
# print "$inusenum\n";
# exit 0;
  if ( ( int $inusenum ) < 90)
  {
    print
      "\n",
      , "$inuselabel: "
      , q()
      , "$inusepercent"
      , q();
  }
  else
  {
    print
      "\n",
      , "$inuselabel! "
      , q()
      , "$inusepercent"
      , q();
  }
}
'
sleep 5
done