nlwnew.pl

#!/usr/bin/perl 
use strict;
use warnings;

use WebService::Simple;
use Data::Dumper;

my $nlwnew_version = "0.9.2";

my $nlwnew = WebService::Simple->new(
    base_url        => "http://nlwnewg.appspot.com/getdata",
    response_parser => 'JSON', 
    params          => { version => $nlwnew_version, }, 
);

my $response = $nlwnew->get({url => "master", datefrom => "" });

   for my $item (@{$response->parse_response->{comments}}) {
       print $item->{desc}.' '.$item->{url}."\n";
   };