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

##</code><code>##

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