use warnings;
use strict;

use MetaCPAN::Client;

my $mc = MetaCPAN::Client->new;

my @modules = qw(
    Test::BrewBuild
    RPi::WiringPi
    Devel::Examine::Subs
);

for (@modules){
    printf "%s: %s\n", $_, $mc->module($_)->version;
}


##</code><code>##

Test::BrewBuild: 2.20
RPi::WiringPi: 2.3628
Devel::Examine::Subs: 1.69

##</code><code>##

use warnings;
use strict;

use MetaCPAN::Client;

my $mc = MetaCPAN::Client->new;

my @modules = qw(
    Test::BrewBuild
    RPi::WiringPi
    Devel::Examine::Subs
);

for my $module_name (@modules){
    my $module_object = $mc->module($module_name);
    my $module_version = $module_object->version;

    print "$module_name: $module_version\n";
}