use Template;

my $template = Template->new;
$template->process(\*DATA) || die $template->error();

__DATA__
[% USE DBI( ... ) %]

<form>
<select name="movies">
[% FOR movie = DBI.query('select id,title from movie') %]
   <option value="[% movie.id %]">[% movie.title %]</option>
[% END %]
</select>
</form>