$wrs->send­(chr($cc)) or close_sock­et($wrs);
    $cc++;
    $sock_clie­nt_hash{$w­rs->fileno­}{bytes_re­cvd}++;