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