$top->Busy(-recurse => 1);
# call your subroutine
$top->Unbusy;