use strict;
use Tk;

my $mw = MainWindow->new(-title => "Have fun ...");
$mw->configure(-title => "Osterhase");
MainLoop;