#!/usr/bin/perl -w use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); use Template; my $q = CGI; my $tt = Template->new({ INCLUDE_PATH => '../../temp/'}); my $vars = {}; $vars->{'title'} = 'Template Test'; $vars->{'site_name'} = 'TT TEST Page'; print $q->header(); print $tt->process('page.tt', $vars) || die $tt->error(); exit 1; #### [% title %]

[% site_name %]


Test Page