while(1) {
                       $oscar->do_one_loop();
                       # Do stuff
                       #update your Tk widgets here
                       $mw->DoOneEvent( DONT_WAIT | 
                                                         ALL_EVENTS );

               }