# setup MainWindow $mw
# setup socket with timeout
sub myloop {
   while (1) {
       #read from socket;
       #if anything read, deal with it;
       $mw->update();
   }
}
$mw->after(1, \&myloop);
MainLoop;