my ($sig, $ret) = ($?&255, $?>>8);
 die "child died from signal $sig" if $sig;
 die "child exited with code $ret" if $ret;