sub ckSockets {
... CHECK:
    my @breadys = $io_select_obj->can_read( 0.01 );
    unless( @breadys ) {
        usleep( 0.1 ); ## See Time::HiRes
        ## Or select undef, undef, undef, 0.1; 
        ## but that might be a "busy loop" also.
        goto CHECK;
    }
...
}