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();