Select Code to Download

tie *STDOUT, Tk::Text, $text;  # '$text' is a Text widgit.

tie *STDOUT, MyMagic, $text;