my $resp = $ua->request($req);
if ($resp->is_success) {
    my $output = $resp->decoded_content;
	use JSON::PP;
	my $data = join '', $output;
	my $json = JSON::PP->new->decode($data);
# Output 1.
	use Data::Dump 'dd'; 
	dd $json;

# Output 2.
	foreach my $key ( keys %$json ) { 
		print $key, " => ", $json->{$key},"\n";
	}	
}