Select Code to Download

perl -MCGI=:standard -e 'print popup_menu({ -name    => "query",
                                            -values  => [1, 2, 3],
...
<option selected="selected" value="2">label2</option>
<option value="3">label3</option>
</select>

    template 'index', { name => 'query',
                        options => { label1 => 'Option 1',
...
                        default => 'label2',
                      };

<select name="<% name %>" >
    <%- FOR o IN options %>
...
    <%- END %>
</select>