use strict;
use warnings;
use Template;
use CGI;
my $cgi = new CGI;
my $navi = $cgi->param('navi') || 'else';
my $template = Template->new;
print "Content-Type: text/html\n\n";
$template->process(\*DATA, { navi => $navi, navis => [ 'main', 'foo', 'else' ] });
__END__
[% title %]
[% IF navi == 'main'%]
- main foo
- main bar
- main baz
[% ELSIF navi == 'foo' %]
- foo foo
- foo bar
- foo baz
[% ELSE %]
- else foo
- else bar
- else baz
[% END %]