Help for this page

Select Code to Download

Select or download this

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 $!;
                                                      ^

Select or download this
```
setsockopt (SOCK,0,4,<TTL>);
```