#!/usr/bin/perl -w
######################################################################
# hellotk.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Tk;                      # include Tk package

$top    = MainWindow->new(); # create application window

                             # create pushbutton, 
                             # set text and callback

$button = $top->Button(-text => 
                       "Hello World! Push me to exit !",
                       -command => sub { exit 0 });

$button->pack();             # insert pushbutton in
                             # application window

MainLoop;                    # start main event loop