use strict;
use warnings;
use Mojo::UserAgent;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);

my $outputFilename = "test_output.txt";
my $fh_data;
my $name;

open( $fh_data, '>', $outputFilename )
  or die "Could not open file '$outputFilename' $!";
my $url =
"https://public-api.wordpress.com/rest/v1/read/feed/?url=anautismobserver.wordpress.com";
my $ua   = Mojo::UserAgent->new;
my $json = $ua->get($url)->res->json;

for my $feedurl ( @{ $json->{feeds} } ) {
    if ( $feedurl->{meta}{links}{site} ) {
        my $siteurl2 = $feedurl->{meta}{links}{site};
        my $ua2      = Mojo::UserAgent->new;
        my $json3    = $ua2->get($siteurl2)->res->json;
        $name = $json3->{name};
        print $fh_data "$name";
    }
}
close $fh_data;