The way the process method works always annoyed me, so I wrote a little wrapper around it (the $template object needs to be global in this version):

sub parse_template($;$) {
    my $filename = shift;
    my $vars = shift || {};
    my $parsed;

    $template->process($filename, $vars, \$parsed) or die 'Couldn\'t o
+pen template: ' . $template->error();

    return $parsed;
}
[download]