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