my $server = IO::Socket::INET->new(....);
setsockopt($server, SOL_SOCKET, SO_REUSEADDR, 1);