<do action=all>

<perl>
unless ($pass ne "wasauchimmer"){
out<<"EOF"; 
<form action="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/Benutzername/Verzeichnis/Template" method=post enctype="multipart/form-data">
<input type="hidden" name="htx=" value="/Benutzername/Verzeichnis/Template"> 
Passwort: <input type="text" name="pass=">
<input type="submit" value="abschicken">
</form>  
EOF
}
else{
out "Das nur wenn man das passwort kennt";
# vermutlich solls die datenbankausgabe sein
#da sie in perl steht darf man dort alles 
do_all; 
}
</perl>