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