ソケットSOCKETに対して、ソケットオプションを設定します。エラー時には、未定義値が返されます。引数を渡したくない場合には、
引数OPTVALにundefを指定します。

setsockoptの使い方

use Socket;

socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);
bind(SERVER, sockaddr_in($server_port, INADDR_ANY))

while (accept(CLIENT, SERVER)) {
	$my_socket_address = getsockname(CLIENT);
	($port, $myaddr) = sockaddr_in($my_socket_address);
}