[ivank]

koresaram
Это был не рабочий код, а просто идея, к тому же я не подумав не там палочку поставил . Вот работающий пример:
tpl.html

Код:

smt1: __smt1__
counter: __counter__
smt2: __smt2__

counter.pl

Код:

print "Content-type: text/html\n\n";
#some non-trivial code here...
print "123";

ex.pl

Код:

#!/usr/bin/perl -w

use HTMLTMPL;

$templ = new HTMLTMPL;
$templ->src('tpl.html');

$templ->smt1('something not important is here');

open(COUNTER, "perl counter.pl |");
$counter = join('', <COUNTER>);
close(COUNTER);
$counter =~ s/(.*)?\n\n//s; # удаляем HTTP-заголовок 
$templ->counter($counter);


$templ->smt2('something not important strikes back!');

$templ->output('Content-Type: text/html');

Результат работы ex.pl

Код:

Content-Type: text/html

smt1: something not important is here
counter: 123
smt2: something not important strikes back!

а вот про три строчки в шаблонизаторе это ты что имел ввиду?

На счёт трёх строчек я приувеличил, по моим более точным подсчётам получилось 7
Ну примерно тот же, код, но только засунуть его в HTMLTMPL, дабы он сам искал места где нужно вставить результат некоторого скрипта. Но, думаю, тебе это не нужно.