Select Code to Download

use Spreadsheet::ParseExcel;
my $parser   = Spreadsheet::ParseExcel->new();
...
    local $^W;
    $workbook = $parser->parse('C:/Downloaded/DEC_10_DP_DPDP1.xls') or
+ die $!, $^E;
}

Use of uninitialized value $iBlock in numeric lt (<) at c:/Perl64/site
+/lib/OLE/Storage_Lite.pm line 1246.
Use of uninitialized value $iBlock in addition (+) at c:/Perl64/site/l
+ib/OLE/Storage_Lite.pm line 1165.
Use of uninitialized value in numeric ne (!=) at c:/Perl64/site/lib/OL
+E/Storage_Lite.pm line 1107.
Use of uninitialized value in numeric ne (!=) at c:/Perl64/site/lib/OL
+E/Storage_Lite.pm line 1107.

Bad file descriptor The handle is invalid at C:\test\recuriveFree.pl l
+ine 34.

C:\test>ppm-shell
ppm 4.10 (ActivePerl 1007)
...
   Repo: ActiveState Package Repository
   CPAN: http://search.cpan.org/dist/Spreadsheet-ParseExcel-0.59/
   Installed: 0.59 (site)