tie *STDOUT, 'Tk::Text', $txt;
tie *STDERR, 'Tk::Text', $txt;