if(%_put && $Vorschau)
{
   out <<EOF;
   $Feld
EOF
&form($_put{Feld},$_put{Feld2});
}elseif(%_put && !$Vorschau)
{
### abspeichern
put;
out "gespeichert";
}else
{
&form;
}

{
my($Feld,$Feld2)=@_;
out <<EOF;
<form...>
<input type=text name="Feld:=" value="$Feld">
<input type=text name="Feld2:=" value="$Feld2">
<input type=submit value="Speichern"> <input type=submit name="Vorschau=" value="Vorschau">
</form>
EOF
}