#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow -> new;

my $textfeld = $mw -> Text() -> pack();


my $z5 = "Zeile 5\n";
$textfeld -> insert("5.0", $z5);

MainLoop;