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