#!/usr/bin/perl
use Template;

my $template = Template->new();
my $message = 'Template';
my $result;
my $vars = { 'message' => $message };
$template->process('template.tt', $vars, $result);
print "Content-Type: text/htmlnn";
print $result;