#!/usr/bin/env perl
use JSON;
use Data::Dumper;
use Perl6::Slurp;
my $file = 'test.json';

my $json = slurp $file;

$text = decode_json($json);
print  Dumper($text);