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