Search ukrainian authors on metacpan

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use v5.10;

use LWP::UserAgent;
use JSON;
use Encode;

my $BASE = 'http://api.metacpan.org/v0/author/_search?q=';

my $ua = LWP::UserAgent->new;

foreach my $query (qw/country:UA country:ua/) {
    my $response = $ua->get($BASE . $query);

    die $response->status_line unless $response->is_success;

    my $result = decode_json(encode 'utf8', $response->decoded_content);

    my @authors = @{$result->{hits}->{hits}};

    display_author($_) foreach (@authors);
}

sub display_author {
    my ($author) = @_;

    say $author->{_source}->{name}, " ($author->{_id})",
      " http://metacpan.org/author/$author->{_id}";
}