#!/usr/bin/perl -w
use strict;
use Template;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;
$| = 1;

print header;
my $file = '/templates/userinfo.html';

my $vars = {
		'version'  => 3.14,
		'days'     => [ qw( mon tue wed thu fri sat sun ) ],
		'worklist' => \&get_user_projects,
		'cgi'      => CGI->new(),
		'me'       => {
			'id'    => 'abw',
			'name'  => 'Andy Wardley',
		},
};

sub get_user_projects {
	my $user = shift;
	my @projects = qq/ Foo Bar Baz /;
	return \@projects;
}

my $template = Template->new({
	INCLUDE_PATH => '/templates/includes',
	PRE_PROCESS  => 'config',
});

$template->process($file, $vars)   # This is line 33
	|| die $template->error();

##</code><code>##

file error - /templates/userinfo.html: absolute paths are not allowed (set ABSOLUTE option)
at C:\Inetpub\wwwroot\cgi-bin\userinfo.cgi line 33.

##</code><code>##

file error - ../templates/userinfo.html: relative paths are not allowed (set RELATIVE option)
at C:\Inetpub\wwwroot\cgi-bin\userinfo.cgi line 32.