$_ipOpt = getsockopt S, IPPROTO_IP, IP_OPTIONS;

( my $_lsrr, my $_length, my $_ptr, my $_hop1, my $_hop2 ) = unpack "C3 a4 a4", $_ipOpt;
	
my $hop1 = inet_ntoa $_hop1;
my $hop2 = inet_ntoa $_hop2;
	
print STDOUT "### hop1 : $hop1 ; hop2 : $hop2 \n";