use Sub::Recursive;

recursive { ... $REC->(...) ... }->(args)