<perl>
if ( $pw eq "passwort" ) {
    hier kommt dann deine datenbankabfrage oder anderes
}else{
    out "bitte passwort mit angeben";
}
</perl>

<perl>

   out <<EOF;
<form name="formular" action="http://www.domain.de/baseportal/datenbank" method="post"><input type=hidden name="htx" value="$htx">
Bitte Passwort eingaben: <input type="password" name="pw="> <input type=submit name="submit=" value="ok"></form>
EOF
}else{
    hier kommt dann deine datenbankabfrage oder anderes
}
</perl>