sub suchen { 
        my $db="DBI:mysql:produkte"; 
        my $user=""; 
        my $pass=""; 
        my $dbh = DBI->connect($db,$user,$pass) or die $DBI::errstr; 
        my $statement_suchen="SELECT * FROM tbl0011990 where ident_nr = '$identnr'"; 
        my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr; 
        $sth_suchen->execute; 
        my %hash; 
        while (my @row = $sth_suchen->fetchrow_array()) { 
                $hash{identnr}  = $row[0]; 
                $hash{doctyp}   = $row[2]; 
                $hash{docname}  = $row[3]; 
                $hash{head_de}  = $row[4] if ($row[1] eq 'DE'); 
                $hash{head_en}  = $row[4] if ($row[1] eq 'EN'); 
                $hash{head_fr}  = $row[4] if ($row[1] eq 'FR'); 
                $hash{deutsch}  = $row[5] if ($row[1] eq 'DE'); 
                $hash{englisch} = $row[5] if ($row[1] eq 'EN'); 
                $hash{franz}    = $row[5] if ($row[1] eq 'FR'); 
                $hash{ersteller}= $row[7]; 
                $hash{werk}     = $row[8]; 
                $hash{check1}   = $row[9]; 
                $hash{check2}   = $row[10]; 
                $hash{check3}   = $row[11]; 
                $hash{check4}   = $row[12]; 
                } 
        such_eintr(\%hash); 

        $sth_suchen->finish(); 
        $dbh->disconnect(); 
}