#!/usr/local/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 => './'
                             });

$template->process($file, $vars)
    || die "Template process failed: ", $template->error(), "\n";
__END__
Content-type: text/html


##</code><code>##

$template->process($file, $vars,'output.html')

##</code><code>##

Could not find file for 'output.html' at /usr/local/lib/perl5/site_perl/5.8.5/load.pm line 209.