send(SOCKET,  @Cheese_Array ,0, $paddr);    || die "send $host: $!";