my $widget         = $text2->Subwidget("text") ;
 tie *STDOUT, ref $widget, $widget;

##</code><code>##

Tk::Error: Can't locate object method "TIEHANDLE" via package "" at cbc.pl line 162.