sub message {
$mw = MainWindow->new();
$open = $mw->Label(-text=>'Indizierung Läuft')->pack;
$open = shift;
$mw->after(200*10, sub{$mw->destroy});
MainLoop;
}