#!/usr/bin/perl

use strict;
use Foo;
use Template;

my $template = Template->new();
my @data = ( 1, 2, 3 );
$template->process( \*DATA, { object => Foo->new,
                              data   => \@data })
    || die "Cannot process: ", $template->error();

__DATA__

[% FOREACH d = data %]
The datum is [% d %] and the computed
result is '[% object.compute( d ) %]'
[% END %]