#!/usr/bin/perl -w

use strict;
use Template;

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

__DATA__
8 and 1 = [% 8 and 1 %] (should be 0, if we use a bitwise operator)
8 or 1 = [% 8 or 1 %] (should be 9, if we use a bitwise operator)