#!/usr/bin/perl -w
use strict;

use CGI;
#use Thread::Pool;
use Template;

my $q = new CGI;
print "Content-type: text/html\n\n";
my $file = 'template.html'; 
    
my $vars = {
       message  => "Hello World\n"
};

my $template = Template->new({
                             INCLUDE_PATH => $ENV{DOCUMENT_ROOT} . '/templates'
                             });

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