sub km200_SetData($)
{
	my writevalue            	= $_;

	my $REST_URL                = "/folder";
	my $km200_gateway_host      = "192.168.178.200";
		
	my $ua = LWP::UserAgent->new;
	my $options = HTTP::Headers->new(
		"Accept" => "application/json",
		"User-Agent" => "TeleHeater/2.2.3"
		);
	$ua->default_headers($options);


	$content = {"value"->$writevalue};
		
	
	$data = km200_Encrypt(encode_json($content));
		
	
	my $response = $ua->put( 'http://' . $km200_gateway_host . $REST_URL); 

}