Thanks! I was reading the Net::Ping module, and it looks like something like

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

should work too...