use LWP::UserAgent;
use JSON;

my $km200_gateway_host = 'example.org';

sub km200_GetData {
   my $REST_URL = shift;
   
   my $ua = LWP::UserAgent->new;
   $ua->agent('TeleHeater/2.2.3');
   $ua->default_header( Accept => 'application/json' );
   my $response = $ua->get( 'http://' . $km200_gateway_host . $REST_URL );   
   my $data;
   if ($response->is_success) {      
          $data = decode_json( encode( "utf8", $response->decoded_content ) );
   }
   else {
      die $response->status_line;
   }
   return $data;
}

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