while (not defined ($pid = fork())) {
    die "Too many failed fork() attempts: $!\n"
        if ++$attempt > MAX_ATTEMPTS;
    warn "fork() failed: $!\n";
    sleep $FORK_WAIT;
}