while ( defined ($response = <CLIENT>)){ 
    ...

##</code><code>##

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