use strict;
use warnings;
use Tk;

# Das MainWindow erzeugen
my $mw = MainWindow->new(-background   =>   'lightskyblue1');

$mw -> title('Test für grid');

# Wieder mal diverse Felder definieren
my $lbl_1 = $mw -> Label (-text => 'Feld 1',
                          -relief => 'groove');
my $lbl_2 = $mw -> Label (-text => 'Feld 2',
                          -relief => 'groove');
my $lbl_3 = $mw -> Label (-text => 'Feld 3',
                          -relief => 'groove');
my $lbl_4 = $mw -> Label (-text => 'Feld 4',
                          -relief => 'groove');
my $lbl_5 = $mw -> Label (-text => 'Feld 5',
                          -relief => 'groove');
my $lbl_6 = $mw -> Label (-text => 'Feld 6',
                          -relief => 'groove');

$lbl_1 -> place(-x=>10, -y => 25);
$lbl_2 -> place(-x=>20, -y => 50);
$lbl_3 -> place(-x=>30, -y => 75);
$lbl_4 -> place(-x=>40, -y => 85);
$lbl_5 -> place(-x=>80, -y => 100);
$lbl_6 -> place(-x=>100, -y => 35);

MainLoop;