sub error {
   my $errors = shift;
   for (@{$errors}) {   # noch schnell die Fehler aufzeichnen
      warn $_;
   }

   print "Content-Type: text/html\n\n";
   print "Wegen Fehler abgebrochen!";
   next;
}