#!/usr/bin/perl 

use strict;
use warnings;
use Data::Dumper;
use HTML::Template;

my $param = { ticks =>
  [
    {
      tick => 'tick1',
      subject => '8-15-2006',
      names => [
        { 
          name => 'jerry',
        },
        {
          name => 'john',
        },
        {
          name => 'jen',
        },
      ],
    },
    {
      tick => 'tick2',
      subject => '8-16-2006',
      names => [
        {
          name => 'Keith'
        },
        {
          name => 'Ken',
        },
        {
          name => 'Kendra',
        },
      ],
    },
  ],
};

#print Dumper $param;

my $t = HTML::Template->new(filename => 'ticker.html');
$t->param($param);
print $t->output;