sub down{
my $nextm = stll(shift, 2);
my $nexts = stll(shift, 2);             #hier noch nexts und nextm zweistellig machen 
$fenster->after(1000 => sub { $text3->configure(-text => $nextm .':'. $nexts);
                            if($nextm <= 0 and $nexts <= 0){
                               event();
                             } else {
                              if($nexts == 0){
                                $nextm--; #nextm = nächtse minute
                                $nexts = 59; #nexts= nächstesekunde
                              } else { $nexts--; }
                              down($nextm, $nexts); }
                             }
                );
}