while ( $self{'stat'} ne 'done' ) {

        # Check for new ephemeris
        notify( 'miner', $t, retrieve_data(@p) );
        select undef, undef, undef, $cnf{'period'};
    }