use strict;
use CGI;
use HTML::Template;

my $q = CGI->new();
my $template = HTML::Template->new(
   filename  => 'some.tmpl',
   associate => $q,
);

# assign params to $template according to user input/validation

print $q->header, $template->output;