use DBI;
use HTML::Template;
use CGI qw(:standard);

my $dbh = DBI->connect(
    qw(DBI:vendor:database:host user pass),
    {RaiseError=>1},
);

my $states = $dbh->selectall_arrayref('
   select id,name from state order by name
',{Slice => {}});

my $tmpl = HTML::Template->new(filehandle => \*DATA);
$tmpl->param(states => $states);

print header,$tmpl->output;

__DATA__
<form>
<select name="states">
<tmpl_loop states>
   <option value="<tmpl_var id>"><tmpl_var name></option>
</tmpl_loop>
</select>
<p><input type="submit" /></p>
</form>