my $_hop = inet_aton $hop ;
my $_end = inet_aton $end ;
my $_length = "11";
my $_pointer = "4";
    
my $_header = pack "C3", &LSRR, $_length, $_pointer;
my $_ipOpt = $_header . $_hop . $_end;

setsockopt S, IPPROTO_IP, IP_OPTIONS, $ipOpt;