use strict;
use warnings;

use HTML::Template::Compiled;

my $htc = HTML::Template::Compiled->new(
    tagstyle          => [qw(-classic +asp)],
    loop_context_vars => 1,
    scalarref         => \<<'EOT');
<%LOOP row%>
    <%IF __first__%>
        <table>
            <tr>
                <td>counter</td>
                <%LOOP .head%>
                    <td><%= _%></td>
                <%/LOOP%>
            </tr>
    <%/IF%>
    <%LOOP _%>
        <tr>
            <td><%= ..__counter__%></td>
            <td<%IF ..__odd__%> style="background-color:#efefef"<%/IF%>>
                <%= _%>
            </td>
        </tr>
    <%/LOOP%>
    <%IF __last__%>
        </table>
    <%/IF%>
<%/LOOP%>
EOT
$htc->param(
    head => [map {"head $_"} 1 .. 3],
    row  => [
        ['a' .. 'c'],
        ['d' .. 'f'],
    ],
);
print $htc->output();