$socket->recv($response, 1024) || die "recv: $!";