if ( !$? ){
   # do the stuff you do after a forked process completes sucessfully
}

##</code><code>##

use English qw(no_match_vars);

if ( not $CHILD_ERROR ){
   # do the stuff you do after a forked process completes sucessfully
}