my $call=0;
 
sub generator (;$) {
  my $inner_iter=shift;
  my $dummy;
  
  $outer_iter=sub {};
  # $outer_iter=sub { $inner_iter->() };
  # $outer_iter=sub { $dummy++ };
  $call++;
  
  print "Call Nr $call\n";
  
  if ($inner_iter){
    print $inner_iter."\n";
    if ( $inner_iter eq $outer_iter) {
      print "ERROR !!!\n"
    }
  }
  
  return $outer_iter;
}
 
print generator generator;