Select Code to Download

use CGI;
use CGI::Ex::Fill qw(fill);
...

print $html;

<form>
<input type="text" name="foo" value="FooFoo">
...
<option selected="selected">BazBaz</option>
<option>Bang</option>
</form>