#! /usr/bin/perl
use Tk;
my $mw = MainWindow->new;
$mw->title( "Hallo Welt" );
$mw->Button(
        -text   => "Fertig",
        -commad => sub { exit }
        )->pack();
MainLoop;
#EOF