use JSON::Parse;
my $JP = JSON::Parse->new();
$JP->warn_only();
$JP->warn_only(1);