while (1) {
    $self->check_start();
    $self->check_run();

    # Sleep 1/10 second
    select(undef, undef, undef, 0.1);
    1 while (waitpid(-1, &WNOHANG) > 0);
}