#!/usr/bin/env perl 
use strict;
use warnings;

use Template;

# Set up your data
my $data = {
    table => [
        {
            head => 'Bookings this month',
            val  => 132,
        },
        {
            head => 'Previous 30 days',
            val  => 99,
        },
        {
            head => 'Forthcoming 30 days',
            val  => 150,
        },
        {
            head => 'Forthcoming 60 days',
            val  => 189,
        },
    ],
    event_count => 1,
    call_list   => 5
};

# Set up your template (easiest/commonest in an external datastore (file
# or DB)
my $template = <<EOT;
<div style="float:right">
<p class="sectionHead"><b>FHL Properties:</b></p>
<table>
[% FOR k IN table %]
<tr>
<th class="itemHead">[% k.head %]:</th>
<td>[% k.val %] </td>
</tr>
[% END %]
</table>
</div>
<hr style="clear:both">

[% USE infl = Lingua.EN.Inflexion; FILTER inflect; -%]
<p class="sectionHead"><b>Progress in Property Event:</b></p>
<p class="itemHeadLarge"><#:[% event_count %]> <N:person> <V:has> registered their interest.</p>
<hr>

<p class="sectionHead"><b>Customer Contentment Call List:</b></p>
<p class="itemHeadLarge"><#d:[% call_list %]> There <V:is> [% call_list %] <N:person> who <V:is> on the Call List.</p>
<hr>
[% END %]
EOT

# Run it
Template->new->process (\$template, $data);

exit;