You could simply have something like the following in your My::PerlHandler :

use Template;
use Apache::Constants qw( :common );


my $tt;

sub handler
{
   my ( $request ) = @_;

   my $file = $request->filename();

   $tt ||= Template->new();

    my $params = {};

    my $out;
    $tt->process($file, $params, \$out)
      or do {
          $request->log_reason( $tt->error );
          return SERVER_ERROR;
      };
                                                                      
+          
 
    $request->content_type('text/html');
    $request->send_http_header;
    $request->print( $out );
                                                                      
+          
    return OK;  
    
}
[download]

But that isn't tested and you may need to flesh it out a bit more.

/J\