for(;;){
        if( $progress == 0){last}
        # Pause for 1/10th of a second to be a good citizen
        select(undef, undef, undef, 0.1)
    }