use strict;
use warnings;
use Tk;

# Das MainWindow erzeugen
my $mw = MainWindow->new;

# MainWindow: Groesse-X und -Y, Position -X und -Y
$mw->geometry("220x150+100+120");

# Titelzeile
$mw->title("Die Suche nach Weisheit");

# Textfeld im Fenster
my $text = $mw->Label(-text=>"Hallo Universum!",
                      -font => "Helvetica -20 bold" );
$text ->pack;

# Alternativ gleich beides:
# $mw->Label( -text=>"Hallo Universum!",
#             -font => "Helvetica -20 bold" 
#           )->pack;

# Ein Button zum Beenden
$mw->Button( -text => "Drück mich",
             -command => [$mw => 'destroy']
             # alternativ: -command => sub {exit}
           )->pack;

MainLoop;