sub commit_cmd {
    my $cmd = shift;
    my $line = shift || 'keine Angabe';
    die "commit_cmd: kein Befehl angegeben \nAufgrufen in Zeile: '$line'" unless defined $cmd;
    die($dbh->errstr, "Error in executing Sql-Statement:\n\t$cmd\nAufgrufen in Zeile: '$line'" ) unless $dbh->do($cmd);
    die $sth->errstr if $sth->err;
} # commit_cmd