$top->Busy(\&your_subroutine, -recurse => 1);