#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;
use Template;

sub show_elements ($)
{
    my $num = $_[0];
    return unless( $num > 0 );
    print qq(<li>$_</li>\n) for( 1 .. $num );

    '';
}

my $elements = 6;

my $cgi = CGI->new;
my $tt = Template->new( {
    START_TAG => quotemeta( '{#' ),
    END_TAG =>   quotemeta( '#}' ),
} );

my $data = { page_title => 'Elbie Intl Numbers Inc.',
             elements   => $elements,
             show_elements => \&show_elements( $elements ),
             };

print $cgi->header();
$tt->process( 'test.html', $data ) || die $tt->error;