while ($line = <SOCKET>) { 
        print SOCKET "Client says hellooooo toooo !!!"; 
        SOCKET->autoflush(); 
        ...