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

##</code><code>##

tie *STDOUT, MyMagic, $text;