Select Code to Download

use Data::Dumper;
use XML::Parser;
...
             ErrorContext => 2,
             );
$p->parsefile('Spreadsheet.xls');

use IO::File;
use Data::Dumper;
...
    );
  $p->parse_file($fh);
  $p->eof;