use warnings;
use strict;
use Tk;

# Das mw erzeugen
my $mw = MainWindow->new( -width => 400, -height => 150);
$mw->Label(-text => '     Test für Text     ')->pack();

$mw->Button(-text    => 'Exit',
            -command => sub { exit; })
        ->pack(-side => 'bottom');

my $text = $mw->Scrolled('Text', -scrollbars => 'osoe',
                                 -wrap =>'none')
                   ->pack(-expand => 1, -fill => 'both');
$text->insert('end', "Hello World");
MainLoop();