use strict; use warnings; use HTML::Template; use CGI qw(header); my $ht = HTML::Template->new(filehandle=>*DATA); $ht->param(testloop=>[{},{}]); print header, $ht->output; warn "_____TEST_____\n"; __DATA__