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

##</code><code>##

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