Select Code to Download

my $query = new CGI;
my $template = HTML::Template->new(filename => 'template.tmpl',
                                   associate => $query);

sub selectify {
    my $values = shift;
...
        }
    } @{$values}];
}

$template->param(some_loop => selectify(\@values,\@labels,[$query->par
+am('some_param')]);

<select name="some_param">
<tmpl_loop name="some_loop">
  <tmpl_include name="inner_loop.tmpl">
</tmpl_loop>
</select>

<option value="<tmpl_var name="value" escape="html">"<tmpl_if name="se
+lected"> selected="selected"</tmpl_if>><tmpl_var name="label" escape=
+"html"></option>