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;
       my $merker = 0;

     if ($head_de && $deutsch && ($check1 || $check2 || $check3 ||$check4) && $ersteller && $werk)
       {
               do_sth1();
               $merker = 1;
       }
    if ($head_en && $englisch && ($check1 || $check2 || $check3 ||$check4) && ersteller && $werk)
       {
                   do_sth2();
                   $merker = 1;
       }
       if ($head_fr && $franz && ($check1 || $check2 || $check3 ||$check4) && $ersteller && $werk)
       {
                     $do_sth3();
                     $merker = 1;
       }
       if ($merker == 0)  {          
               &warnung();
       }
       else  {
               &ausgabe();
       }
       $sth_insert->finish();
       $dbh->disconnect();
       }