my $sth = $dbh->prepare('select * from songs limit 5');
$sth->execute;
tie my @data, Tie::STHRows, $sth;

my $tmpl = q|
<tmpl_loop data>
<tmpl_var id> <tmpl_var artist> <tmpl_var album>
<tmpl_var title> <tmpl_var year> <tmpl_var genre>
</tmpl_loop>
|;

my $template = HTML::Template->new(scalarref => \$tmpl);
$template->param(data => \@data);
print $template->output;