my $parser = Spreadsheet::ParseExcel->new() 
    or die "Some error text";
my $book = $parser->Parse($filename) 
    or die "Some error text";