package main;
use strict;
use warnings;
use Modern::Perl;

use CPAN;

CPAN::HandleConfig->load;
CPAN::Shell::setup_output;
CPAN::Index->reload;

my $search = shift @ARGV;

my @modules = CPAN::Shell->expand("Module","/$search/");

say CPAN::Module::as_glimpse($_) for @modules;
1;