use strict;
use warnings;
use Template;
my %vars = (
test => 'Hello World!',
another_test => 'How are you?'
);
my $template = new Template;
$template->process(\*DATA, \%vars);
__END__
Content-Type: text/html
Test template
[% test %]
[% another_test %]