#!/usr/local/bin/perl

use warnings ;
use strict ;

use Template::Simple ;

my $data = {
	widgets => [
		{
			title => "bart",
		},
		{
			title => "marge",
		}
	],
} ;

my $template = <<TMPL ;
[%start widgets%][%title%][%foo%]         [%end widgets%]
TMPL

my $renderer = Template::Simple->new() ;

my $text = $renderer->render( $template, $data ) ;

print ${$text} ;

print "$Template::Simple::VERSION\n" ;
