my $fenster = MainWindow->new();
my $text    = $fenster->Label(-text => $zahl); 

$fenster->repeat(1000, sub {
   if (BEDINGUNG) {
      $text->configure(-text => $zahl++);
   }
});