sub tab_einf  {
my ($lng, $head_type) = @_;
my $type = 'DE';
$type = $head_type if ($head_type);
       &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;
       $sth_insert->execute($identnr,'$lng',$doctyp,$docname,$type,$type_???, $date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
       ausgabe();
       $sth_insert->finish();
       $dbh->disconnect();
}