#!/usr/bin/perl

use strict;
use Template;


my $template = new Template;

my $file = 'tt/template.html';

my $data = {
	env => \%ENV,
};

print "Content-type: text/html\n\n";

$template->process($file, $data) || die $template->error;