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