use strict;
use CGI qw/param header/;
use Template;

my %data;

# Do lots of interesting stuff grabbing the parameters
# and ending up with the data that I need displayed on the
# page in the %data hash

my $tt = Template->new;

print header;

$tt->process('template.tt', \%data)
  || die $tt->error;