You could use Excel to SaveAs a html file.

my $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
       Win32::OLE->new('Excel.Application');
$Excel->{'Visible'} = 0;    #0 is hidden, 1 is visible
$Excel->{DisplayAlerts}=0;    #0 is hide alerts

my $Book = $Excel -> Workbooks -> Open ("test.xls") or die "Can't open
+ spreadsheet\n$!\n";

my $HTMLFormat = 44;  # or ‘xlHtml’
$Book->SaveAs($htmlfile, $HTMLFormat);
[download]