x.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use 5.010_000;
use Data::Dumper;
use JSON;

say $^V;
say $JSON::VERSION;
my $j = JSON->new;
say $j->backend;

my $text = "2013-12-04\n2013-07-26\n";
my $r = $j->decode_prefix($text);
say Dumper($r);
say 'owari';