# open socket
if(my $udpserver = IO::Socket::INET->new(%params))
{
	$udpserver->setsockopt(SOL_SOCKET, SO_RCVBUF, 0);
	$udpserver->setsockopt(SOL_SOCKET, SO_SNDBUF, 0);
	$self->{'_UDPSERVER_'} = $udpserver;
	return(1);
}
else
{
	$LASTERROR = "Error opening socket for reply: $@\n";
	return(undef);
}