#!/usr/local/bin/perl -w
use strict;
use Sysadm::Install qw(:all);
use JSON qw( decode_json );

decode_json( slurp "test.json" );