#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use JSON;
use LWP::UserAgent;

delete @ENV{ qw(ENV BASH_ENV IFS PATH) };    # make safe!

my $ua = LWP::UserAgent->new();
my $response = $ua->get('http://labs.gwendragon.de/tmp/x.json');

my $content = $response->content;

$Data::Dumper::Useperl = 1;
print Dumper($content);

my $ref = JSON->new->utf8->decode($content);
print Dumper($ref);