use strict;      
use warnings;                
use Data::Dumper;            
use Template;                

my $file = 'src/greeting.html';
my $vars = { message  => "Hello World\n" };

my $tt = Template->new;
$tt->process($file, $vars);

my ($found) = keys %{ $tt->{SERVICE}{CONTEXT}{LOAD_TEMPLATES}[0]->{LOOKUP} };
print "$found\n";