if ($self->{"proto"} eq "udp")              # Open a socket
      ...
      $self->{func} = \&ping_tcp;
  }
    elsif ($self->{"proto"} eq "icmp")
  {
      ...
      $self->{func} = \&ping_icmp;
  }
...