#!/usr/bin/perl
use strict;
use warnings;
use HTML::Template;
my $var1 = 'foo';
my $var2 = 'bar';
my $template = HTML::Template->new(filehandle => *DATA);
$template->param(var1 => $var1);
$template->param(var2 => $var2);
print "Content-Type: text/html\n\n", $template->output;
__DATA__
Test HTML::Template!
Var1 is set to
Var2 is set to