<table border="0" width="100">
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/tini1972/mitglieder/mitglieder" method="post" enctype="multipart/form-data">
<input type=hidden name="cmd=" value="search">
<tr>
<td><font face=verdana size=-1>
<center><b>suche</b></td>
</tr>

<input type="text" name="PLZ~=" size=10 value=""><br>
</td>
</tr>

<td>
<input type=submit value="Suchen"></td>
</tr>

<td><font face=verdana size=-1>
<center><b>Angebote</b></td>
</tr>

out <<EOF;
<tr><td>
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/tini1972/mitglieder/angebote" method="post" enctype="multipart/form-data">
<input type=hidden name="cmd=" value="search">
EOF

while(get_next("erghash")) {
push @opRubrik, $Rubrik if index("@opRubrik", "$Rubrik")<0;
}
foreach my $opRubrik(sort @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>

</perl>
</td></tr>