#!/usr/bin/perl -w
use strict;
use Template;

my $template = Template->new;
my %data = (
	foo => 3,
	bar => '03' 
);

print "Perl results: ", $data{ foo } == $data{ bar }
	? "match\n"
	: "no match\n";

$template->process( \*DATA, \%data );

__DATA__
Template results:  [% foo == bar ? 'match' : 'no match' %]

##</code><code>##

Template results:  [% foo == bar+0 ? 'match' : 'no match' %]