use strict;
use warnings;
use Template;
my $tt = Template->new;
$tt->process(
\*DATA,
{
title => 'test title',
cust => {
last_change => scalar localtime,
feedback => 'i want my money back!',
terms2 => 'sign your name here',
},
cfg => {
lastchange => "It's never last changed, it's last modified!",
webmaster_email => 'admin@nimda.com',
},
}
) || die $tt->error();
__DATA__
[% title %]