use strict;
use warnings;

use Tk;

my $meinFenster = MainWindow->new;
$meinFenster->Label( -text=>"Huhu" )->pack;
$meinFenster->Label(-text => "Alles faengt mal klein an. (-:")->pack;
$meinFenster->Button(-text => "---------Klick mich-----------",
                     -command => [$meinFenster => 'destroy']
                    )->pack;
MainLoop;