use Tk;
use Tk::Pane;

my $mw = MainWindow->new (-title => 'sgui');
$mw->resizable('false','true');
my $run = $mw -> Button(-text => 'Run!',
				-width => 27,
                       		-command => [\&that]
				);
my $enter = $mw->Label(-text => "\nOutput");
my $pane = $mw->Scrolled("Pane",
			Name => 'fred',
        		-scrollbars => 'osoe',
        		-sticky => 'we',
			-width => 540,
			-height => 580
    			);

my $text = $pane->Text(-width => 75, -height => 40);
my $quitButton = $mw->Button (	-text => 'Quit',
					-width => 27,
		 			-command => \&quit);

$enter->pack;
$pane->Frame;
$pane->pack;
$text->pack;
$text->insert('end', \*STDOUT);
$quitButton->pack;

MainLoop;