sub Fehler_eintragen {
       (my $test = $_[0]) =~ tr/'//d;
       print "Neuer Fehler $test\n" if defined $opt_v;

       $dbh->do("insert into Fehler(Fehler) values ('" . $test . "');"); Fehler("Fehler Neuer Fehler: $DBI::errstr", 0) if $DBI::err;
}