Listing 1

my @table ;
my $i = 0 ;
for( $j = 0 ; $j < 4 ; $j++ )
{
 my %row ;
 $row{COL1} =  $j * $i ;
 $row{COL2} =  $j * ( $i + 1 ) ;
 $i++ ;
 push @table , \%row ;
}
my $template = HTML::Template( myfile.tmpl ) ;
$template->params .... concludere