$ perl -MTemplate -wE '
my $tt = Template->new;
my $compiled = $tt->template(\"In-place [% foo %] query\n");
my $answer = 40;
$tt->process( $compiled, {foo => $answer++} ) for 0..2;
'
In-place 40 query
In-place 41 query
In-place 42 query