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