#!/usr/bin/perl
use warnings;
use strict;
use JSON;
use WWW::Mechanize;
use v5.10;

my $url = 'https://www.archlinux.org/master-keys/json/';

my $mech = WWW::Mechanize->new(cookie_jar => {});

$mech->get($url);
my $json = JSON::decode_json($mech->content());
for my $node (@{$json->{nodes}}) {
	say $node->{key} if $node->{group} eq "packager" and $node->{key};
}