use strict;
use Tk;
use Tk::Configure;
my $mw = MainWindow->new(-title => "Have fun ...");
$mw->Configure(-title => "Osterhase");
MainLoop;