#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Tk;                      # Tk package einbinden

$top    = MainWindow->new(); # Applikations-Fenster erzeugen


                             # PushButton erzeugen, 
                             # Text und Callback setzen
$button = $top->Button(
              -text    => "Hello World! Push me to exit !",
              -command => sub { exit 0 });

$button->pack();             # PushButton in Applikations-
                             # Fenster einhängen

MainLoop;                    # Haupt-Event-Schleife starten