#!/usr/bin/perl
use strict;
use HTML::Template;
my $template = HTML::Template->new(filehandle => \*DATA);
$template->param( XX =>'variable XX' );
print $template->output;

__DATA__
XX: <TMPL_VAR NAME=XX>
XX: <TMPL_VAR NAME=XX>
XX: <TMPL_VAR NAME=XX>