<perl>
 
out "<select name=\"FELDNAME:=\">";
 foreach $option ("FELDINHALT1","FELDINHALT2","FELDINHALT") {
  if ($FELDNAME eq $option) {
   out "<option selected>$option\n";
  } else {
   out "<option>$option\n";
  }
 }
 out "</select>";
</perl>