#!/usr/bin/perl -w

use HTML::Template;


my $temp = q|<TMPL_IF bob>something and <TMPL_VAR bob>
<TMPL_ELSE>bob failed</TMPL_IF>
<TMPL_IF joe>not displayed<TMPL_ELSE>joe failed</TMPL_IF>
<TMPL_IF jim>not displayed either because 0 is false
<TMPL_ELSE>jim failed</TMPL_IF>|;

my $template = HTML::Template->new(scalarref=>\$temp);
$template->param(bob=>"bob",jim=>0);
print $template->output;
__DATA__
something and bob

joe failed
jim failed