#!/usr/bin/perl
use warnings;
use strict;
use JSON::Parse ':all';
my $perl = parse_json ('{"a":1, "b":2}');
print ref $perl, "\n";