sub make_counter {
  my $start=shift||0;
  return sub {$start++};
}