# file:MyHandler.pm 
#------------------------------------------------------------------ 
package MyHandler; 
 
#Load some helpful functions   
use strict;         #strict tolerance for code 
use warnings;       #extra warnings in the log 
use Carp;           #verbose logging 
use diagnostics;    #more verbose logging 
 
#Loadup some functions for later use 
use HTML::Template; 
 
#Loadup functions involved in being a handler 
use Apache2::RequestRec (); 
use Apache2::RequestIO (); 
use Apache2::Request; 
use Apache2::Const -compile => qw(OK); 
 
#------------------------------------------------------------------ 
# 
# Subroutines 
# 
 
sub handler { 
    my $hdlr = shift; 
    $hdlr->content_type('text/html'); 
    $hdlr->print("Handler started<br />"); 
     
    my $template    = HTML::Template->new( filename => "/templates/main.tmpl"); 
    $hdlr->print("outputting template...<br />"); 
    $template->output(); 
 
    $hdlr->print("after main, now sending Apache 'OK'<br />"); 
    return Apache2::Const::OK; 
} 
1;

my $template    = HTML::Template->new( filename => "/templates/main.tmpl") or die "Can't create a new Template object: $!";