while ($Programmierer eq 'wach' and $Sonne) {
  warn "Es ist noch zu frueh...\n";
  sleep(3600);
}