#! /usr/local/bin/perl -wl

use strict;
use CPANPLUS::Backend;

my $cb = CPANPLUS::Backend->new;

for my $dist( @ARGV ) {
    my $res = $cb->search(
        type  => 'module',
        allow => [],
        data  => [qr/$dist/],
    );
    use Data::Dumper;
    print Dumper($res);
}