#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use JSON;

my $json_file = 'pm_1219718_data.json';
my $json_text = do { open my $fh, '<', $json_file; local $/; <$fh> };
my $perl_data = decode_json $json_text;

for (@{$perl_data->{observations}[0]{status}}) {
    print "$_->{path}\n"
}

##</code><code>##

_L7=
_L2=
_L1=
_L6=-1
_L6=-2

##</code><code>##

  ]
}