use strict;
use warnings;
use Mojo::UserAgent;
use Data::Dumper;

my $url = 'https://public-api.wordpress.com/rest/v1/read/feed/34259929';

my $ua = Mojo::UserAgent->new;

my $json = $ua->get($url)->res->json;
print Dumper ($json);

my $subscribers = $json->{subscribers_count};
print "\nNumber of subscribers: $subscribers\n";

my $feedurl = $json->{meta}{links}{self};
print "URL is $feedurl\n";