my $excel_obj = Spreadsheet::ParseExcel->new();
my $workbook = $excel_obj->Parse($outfile);
die "Workbook did not return worksheets!\n"
    unless ref $workbook->{Worksheet} eq 'ARRAY';

for my $worksheet ( @{$workbook->{Worksheet}} )
{
    print OUT_HTML_FILE "<table>\n";
    for my $row ( 0 .. $worksheet->{MaxRow} )
    {
        print OUT_HTML_FILE "<tr>\n";
        for my $col ( 0 .. $worksheet->{MaxCol} )
        {
            my $cell = $worksheet->{Cells}[$row][$col];
            print OUT_HTML_FILE "<td>";
            print OUT_HTML_FILE ref $cell ? $cell->Value : '';
            print OUT_HTML_FILE "</td>\n";
        }
        print OUT_HTML_FILE "</tr>\n"; # record ends
    }
    print OUT_HTML_FILE "</table>\n";  # worksheet ends
}