sub colorize
 {
  my $phrase =  shift (@_) ;
  my @colors = ("#0033ff", "#0066ff", "#0099ff",
                "#00ccff", "#00ffff", "#66ffff", 
                "#ccffff", "#ffffff", "#ccffff", 
                "#66ffff", "#00ffff", "#00ccff", 
                "#0099ff", "#0066ff", "#0033ff",
                "#0000ff"); 
  my ($colorphrase,$length,$phraseparts,$xx,$each_char,$it) ;

  $length = length ($phrase) ; 
  $phraseparts = ($length / ($#colors+1)) ;
   for ($xx=0;$xx<$length;$xx++)
    {
     $each_char = substr ($phrase,$xx,1);
     $it = int ($xx / $phraseparts);
     $colorphrase.= "<font color=$colors[$it]>$each_char</font>" ;
     }
  return $colorphrase;
 }