<form action="baseportal.pl?htx=/SUCHEN&cmd=search" method="post" enctype="multipart/form-data">
   <input type=hidden name="htx=" value="/SUCHEN">
   <input type=hidden name="cmd=" value="search">
   <input type="text" name="FELD1~=" size=40 
   <input type="text" name="FELD2~=" size=40 
   <input type=submit value="Eingabe senden">
   <input type=reset value="Eingabe löschen">
</form>

<perl>
init "DATEI";

out " ";
out "Einträge gefunden";

<do db=DATEI action=input>
<loop db=DATEI sort^=FELD1,FELD2>
<TR>
   <td>$FELD1</td>
   <td>$FELD2</td>
</tr>
</loop>