$table = Spreadsheet::ParseExcel->parse( $filename );

##</code><code>##

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