sub Fehler_eintragen {
       print "Neuer Fehler $_[0] \n" if defined $opt_v;
       $dbh->do("insert into Fehler(Fehler) values (?);", undef, $_[0]); Fehler("Fehler Neuer Fehler: $DBI::errstr", 0) if $DBI::err;
}