Re: How do I increase the TTL on a socket?

[c-era]

I found my own answer:

use Socket;
$host="somehost";
socket(SOCK,PF_INET, SOCK_RAW, getprotobyname('icmp')) || die $!;
send (SOCK, pack("C2 S5", 17, 0, 0xc898,0x2667,0,0,0),0,sockaddr_in (0
+,inet_aton($host))) || die $!;
                                                      ^

The flag was just set wrong, I also found out how to change the TTL (at least for Solaris):

setsockopt (SOCK,0,4,<TTL>);