sub km200_GetData($$$) 
{
   my $REST_URL = $_[0];
   my $km200_gateway_host = $_[1];
   my $km200_crypt_key_private = $_[2];
   
   my $ua = LWP::UserAgent->new;
   my $options = HTTP::Headers->new(
     "Accept" => "application/json",
     "User-Agent" => "TeleHeater/2.2.3"
   );
   $ua->default_headers($options);

   my $response = $ua->get( 'http://' . $km200_gateway_host . $REST_URL );   
   my $data;
Log 3, "km200_GetData: " .$response;	

   if ($response->is_success) {      
        $data = decode_json(encode( "utf8", $response->decoded_content ));
		#km200_Decrypt(encode( "utf8", $response->decoded_content ), $km200_crypt_key_private));
   }
   else {
        die $response->status_line;
   }

Log 3, "km200_GetData: " .$response;	
Log 3, "km200_GetData: " .$data;	

   return $data;
}