if ($char_keywords > 950)
   {
        print qq(<td><font color="red">Keywords: </font></td>);
        print qq(<td><font color="red">You had $char_keywords chars.  Max is 950.</font><br>);
  
   }
   else
   {
       print qq(<td>Keywords: </td>);
   }

##</code><code>##


foreach (keys %one_word_keywords)
{
   my $key = $_;
   my $value = $one_word_keywords{$_};

   if ($value > 6)
   {
      # this has to be printed in the normal table as well
      # but if this error happens AND the chars does
      # the word KEYWORDS would be colored red twice.
      print qq("$key" was repeated $value times.  Max is 6<br><br>);
   }
}