my $things = $dbh->selectall_arrayref('
   SELECT id,name
   FROM status
',{Slice=>{}});
my $t = MyHtmlTemplate->new( handle => \*DATA );
print $t->fill(title=>'FooBar',data=>$things);