while ( defined ($response = <CLIENT>) ){

##</code><code>##

use IO::Handle;
...
print CLIENT "Hello from the server \n\n ";
CLIENT->flush();
...

##</code><code>##

print SOCKET "Client says hellooooo toooo !!! \n";
#                                             ^^
SOCKET->flush();