RosettaCodeData/Task/Fork/Perl/fork-4.pl

use Proc::Fork;
run_fork {
    child {
        # child code ...
    }
    parent {
        # parent code ...
    }
    retry {
        # retry code ...
    }
    error {
        # error handling ...
    }
};