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 $de="0";
        my $en="0";
        my $fr="0";

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