# Делается вызовом метода param( PARAM => value)

$template->param(TOPIC => "Вывод таблицы с чередованием фона строк" );

my $even = 0;

# Создание массива для вывода строк таблицы

my $items = ();

# Цикл заполнения массива данными

for (my $i=1; $i<=10; $i++) {

    # Каждый элемент массива (строка таблицы) представляет

    # собой хэш вида: [ { "NAME" => значение1, "VAL" =>

    # значение2, "odd" => [0|1] } ]

    my $row = {

      "NAME" => "Строка",

      "VAL" => $i

    };

    # Для нечетных элементов устанавливаем значение "odd",

    # равным "1", для четных - "0"

    if ( ($even = ($even xor 1)) ) {

      $row->{"odd"} = 1;

    } else {

      $row->{"odd"} = 0;

    }

    # Добавляем новый хэш-элемент в массив

    push(@{$items}, $row);

}

# Ассоциируем массив с повторяющимся блоком ( <TMPL_LOOP> )

$template->param(item => $items);

# Результат разбора шаблона возвращает нам в виде строки вызов метода output().

# Мы можем сохранить его в переменную, записать в файл или вывести, как любое другое значение:

print "Content-type: text/html ";

print $template->output();