#!/usr/bin/perl -l

use strict;
use warnings;
use CPAN;
use Data::Dumper::Concise;

my $d = shift @ARGV;

my(@mods) = qw(CGI MooseX::Declare);

my (@matches) = grep(($_ eq $d), @mods);
if (@matches) {
    foreach $d (CPAN::Shell->expand("Module", $d)) { 
        print Dumper( $d->dslip_status );
    } 
}