Select Code to Download

my $q = new CGI;

...
print qq|<input name="surname"   type="text" value="$lastname"/><hr/>|
+;
print qq|<input type="submit" name="form_submit" value="go">|;

<form action="$ENV{SCRIPT_NAME}" method="post">
<select name="cars" value="$perl_string">
...
  <option value="audi">Audi</option>
</select>
</form>