Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @n = get();
my $n = get();
get();

$VAR1 = [
          [
...
$VAR1 = [
          bless( sub { "DUMMY" }, 'Hook::LexWrap::Cleanup' )
        ];

In a post-wrapper, $_[-1] contains the return value
produced by the wrapped subroutine. In a scalar return
...
list return context, this value is a reference to the
array of return values. $_[-1] may be assigned to in a
post-wrapper, and this changes the return value accordingly.