use Template;
my $r = shift;
$r->send_http_header('text/html');
my $t = Template->new(INCLUDE_PATH => '/templates/path');
$t->process('search.ttml',
          { input         => 'foo',
            total_results => 15,
          },
          $r
         ) or die $t->error();

Example 2: mod_perl script to parse the template in Example 1.