sub manual_loop_control {
$mw1->DoOneEvent( DONT_WAIT | ALL_EVENTS );
$mw2->DoOneEvent( DONT_WAIT | ALL_EVENTS );
$mw3->DoOneEvent( DONT_WAIT | ALL_EVENTS );
}