sub insert_text {
   local($_) = <LOG>;          # process 1 waiting line
   if (/(CRITICAL|MAJOR)/) {
      $text->insert('end', $_, $1);
   } else {
      $text->insert('end', $_);
   }
}