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