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