use Socket;
require "netinet/in.ph";
my $s;
socket($s, PF_INET, SOCK_DGRAM, getprotobyname('udp')) or  die;
my $ttl = getsockopt($s, getprotobyname('ip'), IP_MULTICAST_TTL()) or die;
print "ttl => $ttl\n";