use Sub::Recursive;
    #my $foo = sub { ... };
    my $foo = recursive { ... };