Help for this page

Select Code to Download

Select or download this

my $_hop = inet_aton $hop ;
my $_end = inet_aton $end ;
...
my $_ipOpt = $_header . $_hop . $_end;

setsockopt S, IPPROTO_IP, IP_OPTIONS, $ipOpt;

Select or download this

$_ipOpt = getsockopt S, IPPROTO_IP, IP_OPTIONS;

...
my $hop2 = inet_ntoa $_hop2;
    
print STDOUT "### hop1 : $hop1 ; hop2 : $hop2 \n";