send( SOCKET, pack("C*",@array), 0, $paddr )