use strict;
use Tk;

my $mw = MainWindow->new;
my $tx = $mw->Scrolled('Text', -height => 24, -width => 90)->pack();

my $data = `programname`;
$tx->insert( '0.0', $data );

MainLoop;