writen ($socket,substr($buf,0,1));             
writen ($socket,substr($buf,1,$RW_BUF_LEN-1));