use DBI;
use Template;

my $dbh = DBI->connect( ... );
my $sth = $dbh->prepare('select id,title from movie');
$sth->execute;

my $movies   = $sth->fetchall_arrayref({});
my $template = Template->new;

$template->process(\*DATA, {movies => $movies})
   or die $template->error();

__DATA__
<form>
<select name="movies">
[% FOR movie = movies %]
   <option value="[% movie.id %]">[% movie.title %]</option>
[% END %]
</select>
</form>

##</code><code>##

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>