use strict;
use warnings;
use Tk;

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

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

$mw->Button(-text => "Dieser Button dient zum Beenden des Programms", 
            -command => sub { exit })
         ->place(-x => 10, 
                 -y => 10,
                 -relwidth => 0.9,
                 -height => 30);

MainLoop;