my $server = IO::Socket::INET->new(LocalPort => $cfg->server_port,
				   Type      => SOCK_STREAM,
				   Reuse     => 1,
				   Listen    => 10,
				  )
  or die "could not become a tcp server on port ", $cfg->server_port, " : $@\n";