Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
There's more than one way to do things
 
PerlMonks  

Answer: How do I increase the TTL on a socket?
( #11856=categorized answer: print w/ replies, xml ) Need Help??

Q&A > network programming > How do I increase the TTL on a socket? contributed by 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 $!;
                                                      ^

[download]
The flag was just set wrong, I also found out how to change the TTL (at least for Solaris): 
setsockopt (SOCK,0,4,<TTL>);

[download]

Comment on Answer: How do I increase the TTL on a socket?
Select or Download Code
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (18)
As of 2013-05-21 08:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (430 votes), past polls