<form action="baseportal.pl?htx=$htx&cmd=search" method="post" enctype="multipart/form-data">
Bundesland:
    <select name="Bundesland~=" size="5" multiple>
      <option>BW</option>
      <option>BY</option>
      <option>ST</option>
      <option>NI</option>
      <option>SH</option>
      <option>NW</option>
    </select><br/>
<input class=submit type=submit value="Abschicken"> </form>

<perl>
if ($cmd eq "search"){
for (my $i=0; $i<=$#_sel; $i++){
$_sel[$i]="|" if $_sel[$i] eq "&";
}
pop(@_sel);
$mysel = join("",@_sel)." range=0,3000 sort=?";

out "Abfrage: ".$mysel."<hr/>Ergebniss:<br/>";

get $mysel,"/Pouraga/geodaten";
while (get_next("/Pouraga/geodaten")){
out $Bundesland." ";
}
}

</perl>
<hr/>
Standartausgabe: (führt das | in @_sel leider nicht aus, scheint immer & zu machen)<br/>
<do action=all db=/Pouraga/geodaten>