while(1) {        
        last unless DoOneEvent($TK_DONT_WAIT);     
    }