Select Code to Download

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

sub ping
{
...

  return wantarray ? ($ret, &time() - $ping_time, $self->ntop($ip)) : 
+$ret;
}

sub ping
{
...

  return wantarray ? ($ret, &time() - $ping_time, $self->ntop($ip)) : 
+$ret;
}

sub ping
{
...

  return wantarray ? ($ret, $ping_time, $self->ntop($ip)) : $ret;
}