SCHLEIFE:
($Minuten, $Stunden, $Tag, $Monat, $Jahr, $Woche, $Datum)=Datum();
my $z=1;
until (($Stunden == 16) and ($Minuten == 00)){
                          print"$Stunden:$Minuten. Die Schleife wartet zum $z. mal...\n";
                          $z++;
                          sleep 30;
                          ($Minuten, $Stunden, $Tag, $Monat, $Jahr, $Woche, $Datum)=Datum();
                          }
werteeinlesen();
pruefen();
goto SCHLEIFE;