Do some primitive benchmarking on JSON serialization.

json_bench.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark qw(:all);
use Data::Random::Structure;
use Data::Dumper;
use JSON::PP ();
use JSON::XS ();

my $g = Data::Random::Structure->new();

my $ref = $g->generate();

warn Dumper $ref;

my %tests = (
    'PP' => sub {
        JSON::PP->new->utf8->encode($ref);
    },
    'XS' => sub {
        JSON::XS->new->utf8->encode($ref);
    },
);

cmpthese(50000, \%tests);