# SOL_IP = 0, IP_TOS = 1
setsockopt(S, 0, 1, pack("I*", $tos));