sub ServerData {
	$GSD_JSON = do {
		open (JSONDATA, "<:encoding(UTF-8)", "/HTTPS/prinet\.org/\.data\.settings");
		local $/;
		<JSONDATA>
		};
	close (JSONDATA);
	$GSD_Handle = JSON->new;
	return ($GSD_Handle->decode($GSD_JSON));
	}