{ my $inner; 
  sub outer { 
    $inner=sub {
      ...
      $inner->();
      ...
    }
  } 
}.