{
  my $count = 0;
  sub counter {
    $count++;
  }
}