my $tl_width = 100;
      my $tl_height = 50;
      my ($width,$height,$pos_x,$pos_y) = split /\+|x/,$main->geometry();
      my $tl = $main->Toplevel(-title=>'Suche....');
      $tl->minsize($tl_width,$tl_height);
      $tl->geometry('+' . 
                    int($width / 2 + $pos_x - $tl_width / 2) .
                    '+' .
                    int($height / 2 + $pos_y - $tl_height / 2)
                   );
      $tl->Label(-image=>$FindBin::Bin . '/chklnk.gif')->pack();
      $tl->Label(-text=>'Suche...')->pack();