use warnings;
use strict;

use MetaCPAN::Client;

my $mc = MetaCPAN::Client->new;
 
my $query = {
    all => [
        { author => 'STEVEB' },
        { status => 'latest' },
    ],
};

my $limit = { 
    '_source' => [
        qw(distribution version)
    ] 
};

my $releases = $mc->release($query, $limit);

while (my $rel = $releases->next){
    my $dist = $rel->distribution;
    $dist =~ s/-/::/g;

    printf("%s is at version %s\n", $dist, $rel->version);
}