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

##</code><code>##

my $book = Spreadsheet::ParseExcel->new()->Parse($filename)
    or die "Couldn't parse file: $filename";