# a frame in my Tk main window
my $frame = $mw->Frame;

# a text widget with attached scrollbars in my frame
my $OutputText = $frame->Scrolled('Text', 
   -height => '50', 
   -width => '150', 
   -scrollbars => 'osoe' 
);

# pack frame and text widget
$frame->pack(qw/-side left -fill y/);
$OutputText->pack(qw/-side bottom -fill both -expand 1/);

# here I try to tie STDOUT to the text widget
my $widget = $OutputText->Subwidget("text");
tie *STDOUT, ref $widget, $widget;