#!/usr/bin/perl -w
use Template;
use CGI;

my $file = '/var/www/template.tt';
my $vars={ msg=>"hello" };
my $cgi = CGI->new();
my $template = Template->new();

print
    $cgi->header(-type=>'text/html',-charset=>'utf-8');

$template->process($file, $vars)
    || die "Template process failed: ", $template->error(), "\n";