Select Code to Download

use Spreadsheet::WriteExcel::Big;
use XML::SAX::ExpatXS;
...
$parser = XML::SAX::ExpatXS->new( Handler => $handler );
$parser->parse_uri($file);

perl /vweb/cl2000/docs/targift/xml/targift_card_sales_rpt_MARKL.pl
Created workbook /proddata/coll/targift/ftp/TARGIFT_CARDSALES_RPT_0317
+11_1235.xls
unclosed token at line 2191, column 3, byte 32765 at /vweb/cl2000/docs
+/targift/xml/targift_card_sales_rpt_MARKL.pl line 55

<ROW>
  <COL1 >T1500</COL1>
...
  <COL3 >50</COL3>
</ROW>
<ROW>