sub get_counter {
   my $x = 42;
   return sub {
      $x++;
   }
}
my $s = get_counter();
say &$s();