use JSON qw( decode_json );
use LWP::Simple;
use utf8;
use strict;
my($url) = "https://graph.facebook.com/$id?access_token=" . $token;
my($json) = get($url);
my($decoded) = decode_json($json);
$event{'desc'} = utf8::decode($decoded->{'description'});