#!/usr/bin/perl
use strict;
use warnings;
use HTML::Template;

my $t=HTML::Template->new(filename=>'temp.tmpl');

my @foo=({bar=>1,baz=>2},{bar=>3,baz=>4});

$t->param(foo=>\@foo);

my $test = 1;
my $message  = 'Yes there is' if $test;
$t->param(TEST => $message );


print $t->output;