#!/usr/bin/perl -wT
use HTML::Template;
use CGI;
my $q = CGI->new();
my $template = HTML::Template->new(filename => './test.tmpl',force_untaint=>1);
$template->param(form=>$q->start_form());
print $template->output();