use strict;
use diagnostics;
use Text::Tmpl;
use constant TEMPLATE => 'tmpl-eg.tmpl';
my $t = new Text::Tmpl;
$t->set_strip(0);
$t->set_value("var1", "value1");
$t->set_value("var2", "value2");
for (my $i = 1; $i <= 10; $i++)
{
    my $iter = $t->loop_iteration("loop1");
    $iter->set_value("loopvar1", "loopvalue1");
    $iter->set_value("loopvar2", "loopvalue2");
}
print $t->parse_file(TEMPLATE);