Select Code to Download

# TkClient.pl
# A modification of the fileevent work around on Win32, from  the book
+: "Mastering Perl/Tk",
...
      $mw->update;   # LET Tk DO UPDATES   
     } until $kid == -1; 
}

# IO_server.pl
# see also:
...
    print $data;  # tee
    syswrite $new_sock, $data;
}