Select Code to Download

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

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