Quick script to ping the AMPProject CDN and refresh cache

ping-amp-cdn.pl

#!/usr/bin/env perl
use strict;
use Modern::Perl;
use Mojo::UserAgent;

# Add list of URLs into @urls array
my @urls = qw();
my $ua = Mojo::UserAgent->new;
for my $u (@urls) {
	$u =~ s!^http://!!;
	$u .= '.amp';
	$u = 'https://cdn.ampproject.org/update-ping/c/s/' . $u;
	say $u;
	my $tx = $ua->get($u);
	if (my $res = $tx->success) {
		say $res->code;
	} else {
		say $res->code;
	}
}