use HTML::Template;  # version 2.6

my @template = <DATA>;
my $template = HTML::Template->new(arrayref => \@template);

$template->param(ZERO => 0);
$template->param(ONE => 1);

print $template->output();

__DATA__
Zero = <TMPL_VAR ZERO>
One = <TMPL_VAR ONE>

##</code><code>##

Zero = 0
One = 1

##</code><code>##

  my $template = HTML::Template->new(filehandle => *DATA);