#!/usr/bin/perl -w

use strict;
use Template;

my $template=new Template( EVAL_PERL => 1);
$template->process(\*DATA) || die $template->error;

__DATA__
8 and 1 = [% PERL %] print 8 & 1 [% END %] (should be 0, if we use a binary operator)
8 or 1 = [% PERL %] print 8 | 1 [% END %] (should be 9, if we use a binary operator)