http://www.perlmonks.org?node_id=837670


in reply to Closure Explanation

sub make_counter {
    my $start = shift;
    return sub {
      warn \$start;
      $start++
    }
}

[download]

In Section Seekers of Perl Wisdom