socket($self->{"fh"}, PF_INET, SOCK_RAW, $self->{"proto_num"}) ||
  croak("icmp socket error - $!");