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));
	}

##</code><code>##

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)});
	}

##</code><code>##

sub ServerData {     //package Update;
%USD_In = %_;
	use JSON;
	open (BUFFER, ">/HTTPS/prinet\.org/\.main\.data");
	print BUFFER encode_json(%USD_In);
	close (BUFFER);
	}