Perhaps you could use select?

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

I hope this is helpful.