That was just the last in a series of transformations showing the equivalence of the samples - I'd probably pick the first one:

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

Makeshifts last the longest.