Perhaps something like this (taken from perlman:perlipc). There are more elaborate examples there also.

    sub REAPER {
        $waitedpid = wait;
        # loathe sysV: it makes us not only reinstate
        # the handler, but place it after the wait
        $SIG{CHLD} = \&REAPER;
    }
    $SIG{CHLD} = \&REAPER;
    ##Do something with fork
[download]