bench.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark;

use JSON;
use LWP::UserAgent;
use Storable;
use MIME::Base64;

my $serializer   = sub { MIME::Base64::encode_base64( Storable::nfreeze(shift) ) };
my $deserializer = sub { Storable::thaw( MIME::Base64::decode_base64(shift) ) };

my $structure = JSON::decode_json(
    LWP::UserAgent->new->get('http://dist.schmorp.de/misc/json/long.json')->decoded_content);

timethis(-1, sub {
    my $string = $serializer->($structure);
    $deserializer->($string);
});