>>667
use utf8;
use LWP::UserAgent;
use JSON;

my $uri = 'http://example.com/foobar';

my $ua = LWP::UserAgent->new;
my $response = $ua->get($uri);
$response->is_success or die $response->status_line;
my $json_data = $response->decoded_content;

my $json = JSON->new->utf8;
my $decoded = eval{ $json->decode($json_data) };
$@ and die "parse error: $@";
...