sub outer {
   ...

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

   $inner->(...);
}