use Template;
my $tt = Template->new( );
my $data = { foo => 'bar' };
$tt->process( \qq{[% foo %]\n[% FOR i IN ['A'..'Z'] %][% i %]\n[% END %]}, $data, \*STDOUT );