my $t=HTML::Template->new(filename=>'file.html');
$t->param(var=>'AgentM\'s Print-o-Matic');
$CGIquery->print $t->output;