Select Code to Download

use JSON qw( decode_json );
use LWP::Simple;
...
my($decoded) = decode_json($json);
$event{'desc'} = utf8::decode($decoded->{'description'});