<perl>
out <<EOF;
<tr><td>
<form action="http://...template2" method="post" enctype="multipart/form-data">
<input type=hidden name="cmd=" value="search">
EOF
get "Rubrik==*", "daten2", "erghash";
while(get_next("erghash")) {
$opRubrik{$Rubrik}++
}
foreach my $opRubrik(sort keys %opRubrik){
# $a_opRubrik .= $opRubrik eq $frubrik ? "<option selected value=$opRubrik>$opRubrik" : "<option value=$opRubrik>$opRubrik";
$a_opRubrik .= "<option value=$opRubrik>$opRubrik";
}
my $sl = "selected" if $frubrik eq ""; 
out<<EOF;
<select name="frubrik=">
<option $sl value='*'>Alle
$a_opRubrik
</select>
<input type="submit" value="suchen">
</form>
EOF
</perl>