https://www.reddit.com/r/unitedkingdom/comments/58m2hs/i_danie+l_blake_is_released_today/.json

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Mojo::UserAgent;

my $url ='https://www.reddit.com/r/unitedkingdom/comments/58m2hs/i_danie+l_blake_is_released_today/.json';

my $ua = Mojo::UserAgent->new;
my $data = $ua->get( $url )->res->json;

foreach my $comment ( @{$data} ) {
    foreach my $child ( @{ $comment->{'data'}->{'children'} } ) {
        print $child->{'data'}->{'author'} . " posted:" .$/;
        print $child->{'data'}->{'body'} . "\n" if( $child->{'data'}->{'body'} );
	}
}

##</code><code>##

#install via cpan
cpan Mojo::UserAgent
#or cpanm
cpanm Mojo::UserAgent