How do I increase the TTL on a socket?

c-era has asked for the wisdom of the Perl Monks concerning the following question:

I have to write an ICMP program, and the TTL is 1. Does anyone know how to change the TTL?

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), 0x04,sockaddr_i
+n (0,inet_aton($host))
) || die $!;
[download]

Originally posted as a Categorized Question.

Back to Seekers of Perl Wisdom