#!/usr/bin/perl
use warnings;
use strict;

my $lineNum=1;

print "<table>\n";
if ( -f $ARGV[0] ){
  #$ARGV[0] is a file
  open(CSV,'<',$ARGV[0]);
  while (<CSV>){
    csvLine2Html($_);
  }
  close(CSV);
} else {
  #TODO...
  #$ARGV[0] is not a file
}
print "</table>\n";

sub csvLine2Html{
    my $line = shift;	
    chomp($line);
    if ($lineNum == 1){
        #first line contains header information
        print "\t<tr>\n";
        print map{ "\t\t<th>$_</th>\n" } split /,/, $line;
        print "\t</tr>\n";
    } else {
        print "\t<tr>\n";
        print map{ "\t\t<td>$_</td>\n" } split /,/, $line;
        print "\t</tr>\n";      
    }
    $lineNum++;
}