my $_hop = inet_aton $hop;
my $_end = inet_aton $end;
    
my $_header = pack "C4", &NOP, &LSRR, $length, $ptr;
my $ipOpt = $_header . $_hop . $_end;

setsockopt S, IPPROTO_IP, IP_OPTIONS, $ipOpt;