#!/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"
}