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