<form action="http://www.domain.de/baseportal?htx=/domain.de/ausgabetemplate" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/domain.de/ausgabetemplate">

<perl>
get "Titel==*", "Datenbank", "erghash";
 
while(get_next("erghash")){
push @opTitel, $Ort if index("@opTitel", "$Titel")<0;
}
foreach (@opTitel){
$a_opTitel .= $opTitel eq $ftitel ? "<option selected value=$_>$_" :
<option value=$_>$_"; }
out<<EOF;
<select name="ftitel=">
<option value='*'>Alle Titel
$a_opTitel
</select>
EOF
</perl>
<input type=submit value="Einträge anzeigen">
</form>