use JSON::MaybeXS;
print encode_json($result);