Perl:

use HTML::Template;

...DBI connect, etc. ...
my $stmt = "SELECT id, name FROM sometable";
$sth = $dbh->prepare($stmt);
$sth->execute();
my $options = $sth->fetchall_arrayref({});

$template = HTML::Template->new(filename => 'form.tmpl')
$template -> param(pulldown => $options);
print $template->output();	

HTML:

<select name="names">
   <option value="">Select...</option>
   <tmpl_loop pulldown>
      <option value="<tmpl)_var id>"><tmpl_var name></option>  
   </tmpl_loop>
</select>