Select Code to Download

sub _socket_create
{
  IO::Socket->new->socket(PF_INET, SOCK_DGRAM, (getprotobyname('udp'))
+[2]);
}

      if (!defined($this->{_socket} = $this->_socket_create)) {
         $this->_perror('Failed to open %s socket', $this->type);
         return wantarray ? (undef, $this->{_error}) : undef
      }