my $mainFrame = $mw->Frame()->pack(-side=>'top');

my $tx = $mainFrame->Scrolled(qw/Text 
	-font normal
        -width 73
	-height 15
	-wrap word 
	-scrollbars e/);
$tx->pack;

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

#script is called, runs, outputs to Scrolled above, user chooses new option and sub clear() is called:

sub clear{
      $mainFrame ->destroy();
      $tx ->pack('forget'); 
}