{
  my $x;
  sub count { ++$x }
}