$text = $MW->TextANSIColor->pack;
  tie *TEXT, "Tk::TextANSIColor", $text;


  $info = colored("Some information\n", 'red');


  # Print information to all filehandles
  print TEXT $info
  print STDOUT $info