#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit;

my $output = qx{perl programm.pl};
my $text = $mw->Text->pack;
$text->insert( 'end', $output );

MainLoop;