http://web.archive.org/cdx/search/cdx?url=archive.org&output=json&limit=3

##</code><code>##

https://github.com/internetarchive/wayback/tree/master/wayback-cdx-server#output-format-json

##</code><code>##

[["urlkey","timestamp","original","mimetype","statuscode","digest","length"],
 ["org,archive)/", "19970126045828", "http://www.archive.org:80/", "text/html", "200", "Q4YULN754FHV2U6Q5JUT6Q2P57WEWNNY", "1415"],
 ["org,archive)/", "19971011050034", "http://www.archive.org:80/", "text/html", "200", "XAHDNHZ5P3GSSSNJ3DMEOJF7BMCCPZR3", "1402"],
 ["org,archive)/", "19971211122953", "http://www.archive.org:80/", "text/html", "200", "XAHDNHZ5P3GSSSNJ3DMEOJF7BMCCPZR3", "1405"]]

##</code><code>##

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;

##</code><code>##

my $url = http://web.archive.org/cdx/search/cdx?url=archive.org&output=json&limit=3