A Mojo script to pause cloudflare sites

pause_cloudflare.pl

#!/usr/bin/perl
use v5.10;
use strict;

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

# Translate the first command-line argument to the Mojo::JSON method to use
my $pause = $ARGV[0] ? 'true' : 'false';

# Go through all of your domains and copy their Zone IDs into this hash.
# The key doesn't really matter.
my %api_keys = (
	'some_site'  => '..zone_id..',
	...
	);

foreach my $site ( sort keys %api_keys ) {
	my $url = 'https://api.cloudflare.com/client/v4/zones/' . $api_keys{$site};
	my $tx = $ua->patch( $url => {
		'X-Auth-Email' => $ENV{CLOUDFLARE_EMAIL},
		'X-Auth-Key'   => $ENV{CLOUDFLARE_AUTH_KEY},
		'Content-Type' => 'application/json'
		},
		json => { paused => Mojo::JSON->$pause() }
		);
	say $tx->result->code, ' ', $site;
	}