$server->setcallback(
		data       => \&gotdata,
		connect    => \&connected,
		disconnect => \&disconnected,
	) || die "Error setting callbacks: $@\n";