use Sub::Recursive; my $recursive = recursive { ... $REC->(...) ... }; [download]
In reply to Re^3: Iterative anonymous subroutines by Anonymous Monk in thread Iterative anonymous subroutines by Anonymous Monk