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