Help for this page

Select Code to Download


  1. or download this
    while ( defined ($response = <CLIENT>) ){
  2. or download this
    use IO::Handle;
...
print CLIENT "Hello from the server \n\n ";
CLIENT->flush();
...
  3. or download this
    print SOCKET "Client says hellooooo toooo !!! \n";
#                                             ^^
SOCKET->flush();