out '     <td><b>Land:</b></td>';
    out '    <td>';
    out '    <select name="Land:=" value="' ,$Land,'">';
    out '   <option>Schweiz';
    out '   <option>Deutschland';
    out '   <option>Italien';
    out '   </select>';

out  "<select name="Land:="> ";
foreach $option ("Schweiz","Deutschland","Italien") {
if ($Land eq $option) {
out " <option selected>$option\n ";
} else {
out " <option>$option\n ";
}
}
out  "</select> ";

 [ Fehler: (perl) in /db-boerse.de/test/db: syntax error at (eval 2872) line 39, near "" ]