Select Code to Download

use warnings;
use strict;
use Data::Dumper;
...
useperl: 1
before: '{"qux":0.42,"foo":"bar"}'
after:  '{"qux":0.42,"foo":"bar"}'

use JSON;
my $json = JSON->new;
for my $up (0, 1) {
...
useperl: 1
before: '{"qux":42,"foo":"bar"}'
after:  '{"qux":42,"foo":"bar"}'