alarm 10;
while ( ! $done ) {
    $done = is_it_done_yet();
    select undef, undef, undef, 1.0;
}