local *recursive=sub { ... recursive(...); };

##</code><code>##

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