Select Code to Download

my @opts;

...
# ... later, print out HTML select list

print "<select name=foo>\n", join( "\n" => @opts ), "\n</select>";