use JSON;
  my $json=new JSON; 
  my $unjson; 
  eval{ $unjson=$json->allow_nonref->decode($message);} ;
  warn 'json decode error:'.$@ ."\n" if ($@); 
  my $lat = $unjson->{"location"}{"lat"};