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