#!/usr/bin/perl
use strict;
use feature qw{ say };
use warnings;

use JSON::PP;

my $json = "{'k1':'v1','k2':'v2'}";
decode_json($json);