my $book = do { my $parser = Spreadsheet::ParseExcel->new() $parser }->Parse($filename);