#!/usr/bin/perl

use strict;
use warnings;

use Template;
use CGI qw/:standard/;
 # ...
print header(-charset=>'utf-8');

my $vars = { # ... blah blah blah
              };
my $template = Template->new(
  INCLUDE_PATH => '/www/path_to_blah/templates/',
);

$template->process( q/template.tt/, $vars );

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)