while (1) { 
   $mw->DoOneEvent( DONT_WAIT | ALL_EVENTS ); 
}