my $jp = JSON::Parse->new();
JSON::Parse::warn_only($jp, 1);