use warnings;
use strict;
use HTTP::Tiny;
use URI;
use Cpanel::JSON::XS qw/decode_json/;

my $http = HTTP::Tiny->new;

my @modules = @ARGV ? @ARGV : ('MetaCPAN::Client');

for my $mod (@modules) {
        my $uri = URI->new('http://fastapi.metacpan.org/v1/module');
        $uri->path_segments( $uri->path_segments, $mod );
        my $resp = $http->get($uri);
        die "$uri: $resp->{status} $resp->{reason}\n" unless $resp->{success};
        my $api = decode_json($resp->{content});
        print "$mod: $api->{version}\n";
}