#!/usr/bin/perl
use strict;
use warnings;

use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);

my $tmpl = HTML::Template->new(filename =>'../templates/main.tmpl');

my $file = '../templates/test.tmpl';
$tmpl->param(FILE => $file);

print "Content-type: text/html\n\n";
print $tmpl->output();