Select Code to Download

    my $parser   = Spreadsheet::ParseExcel->new();
    my $workbook = $parser->parse('Book1.xls');
...
    if ( !defined $workbook ) {
        die $parser->error(), ".\n";
    }

No Excel data found in file at 1098852.pl line 32.