sub outer {
   ...

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

   $inner->(...);
}

##</code><code>##

sub outer {
   ...

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

   $inner->(...);
}