#!/usr/bin/perl

use warnings;
use strict;
use HTML::Template;
use File::Find;

print STDERR "Pre-loading HTML Templates...\n";
find(
     sub {
       return unless /\.tmpl$/;
       HTML::Template->new(
                           filename => "$File::Find::dir/$_",
                           cache => 1,
                          );
     },
     '/srv/www/htdocs/home/'
);