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