#!/usr/bin/perl -w

use HTML::Template;

my $temp = q|<TMPL_VAR name="mouth"><nothing-\|-bob><TMPL_VAR name="bob">|;

$template = HTML::Template->new(scalarref => \$temp);
$template->param(bob=>"bob");
print $template->output;
__DATA__
<nothing-|-bob>bob

##</code><code>##

#!/usr/bin/perl -w

use HTML::Template;
use Data::Dumper;

my $template = HTML::Template->new(filename => $f_name,debug=>1);
print Dumper($template);

##</code><code>##

#!/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