Select Code to Download

# setup MainWindow $mw
# setup socket with timeout
...
}
$mw->after(1, \&myloop);
MainLoop;