{ # closure-block
  my $counter = 0;
  sub IncreaseCounter {
    return ++$counter;
  }
} # closure-block