sub extract_json {
	use JSON;
	my($key, $json_text) = @_;
	return("") unless ($key and $json_text);
	my($json_obj) = decode_json($json_text);
	return(encode_json($json_obj->{$key}));
}
