tie *STDOUT, 'Tk::Text', $tedit;