Any idea on how to get children's exit $result before he dies?

UPDATED: ok I think I got it
Added &reaper into the infinite loop and deleted $SIG{CHLD}
Seems to work now.
(I'd like to know if this is the good way)