kabel@linux:~/progs/perl> cat html_template.pl
use strict;
use HTML::Template;
my $t_text = q~
name:
age :
~;
my $t = HTML::Template->new (scalarref => \$t_text);
$t->param (BOOL => 1);
$t->param (PERSONS => [
{ name => "kabel", age => "22" },
{ name => "chef", age => "22" },
]);
print STDOUT $t->output ();
kabel@linux:~/progs/perl> perl -w html_template.pl
name: kabel
age : 22
name: chef
age : 22
kabel@linux:~/progs/perl>