#!/usr/bin/perl -w
use strict;
use diagnostics;

open( OUT_kolom, ">tabel.html" ) or die "cant open out $!";

# my $file = "debug.csv";
# open FILE, '<', $file or warn "Can't open FILE: $!";    # real code

print OUT_kolom
  "<table class=\"sort-table\" id=\"table-1\" cellspacing=\"0\">\n";

print OUT_kolom "\t<thead>\n";
print OUT_kolom "\t\t<tr>\n";
print OUT_kolom "\t\t\t<td>Number</td>\n";
print OUT_kolom "\t\t\t<td>Letter</td>\n";
print OUT_kolom "\t\t\t<td>Date</td>\n";
print OUT_kolom "\t\t</tr>\n";
print OUT_kolom "\t</thead>\n";

print OUT_kolom "\t<tbody>\n";

while (<DATA>) {
    chomp;
    print OUT_kolom "\t\t<tr>\n";
    print OUT_kolom map { "\t\t\t<td>$_</td>\n" } split( /,/, $_ );

    # how to get <tr class="odd"?>
    # how to get <tr class="even"?>

    print OUT_kolom "\t\t</tr>\n";
}

print OUT_kolom "\t</tbody>\n";
print OUT_kolom "</table>\n";
close OUT_kolom;

__DATA__
1,X,2002-04-18,
2,Y,2004-05-06,
3,Z,2007-07-16,