#!/usr/bin/perl -T
#################
# Template Toolkit example.
# See www.template-toolkit.org
#
##################
use strict;
use warnings;
$ENV{PATH}='';
use Template;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
print $cgi->header;

my $file = 'toolkit_template.html';
my $data = {
            cgi     => $cgi,
            version => '1.0',
            title   => 'Template Toolkit Example',
            home    => 'http://cs.marlboro.edu',
            color   => [
                        { name   => 'red',   number => '#FF0000' },
                        { name   => 'blue',  number => '#0000FF' },
                        { name   => 'green', number => '#00FF00' },
                       ],
           };

my $template = Template->new();
$template->process($file,$data)
  or die $template->error();