$rc = syswrite $socket, pack("N",431), 4;