Select Code to Download

# a frame in my Tk main window
my $frame = $mw->Frame;
...
# here I try to tie STDOUT to the text widget
my $widget = $OutputText->Subwidget("text");
tie *STDOUT, ref $widget, $widget;

for ( 1..10 ) {
   sleep 10;
   print "foo\n";
}