my $coderef = do {
  my $counter = 0;
  sub { ++$counter };
};
*named_closure = $coderef;