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