BEGIN {
 
    # look for JSON::XS, and if not available, fall
    # back to JSON::PP to avoid requiring non-core modules
 
    my $json_ok = eval {
        require JSON::XS;
        JSON::XS->import;
        1;
    };
    if (! $json_ok){
        require JSON::PP;
        JSON::PP->import;
    }
}