sub tab_einf  {
        &check_doctype();
        my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;

        my $statement_insert="INSERT INTO $TABELLE VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?)";
        my $sth_insert=$dbh->prepare($statement_insert) or die $DBI::errstr;
        if ($head_de) {
                $sth_insert->execute($identnr,'DE',$doctyp,$docname,$head_de,$deutsch,$date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
        }
        if ($head_en) {
                $sth_insert->execute($identnr,'EN',$doctyp,$docname,$head_en,$englisch,$date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
        }
        if ($head_fr) {
                $sth_insert->execute($identnr,'FR',$doctyp,$docname,$head_fr,$franz,$date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
        }

else  {
         &warnung();
              }
                ausgabe();
        $sth_insert->finish();
        $dbh->disconnect();
}