use CPANPLUS::Backend;
my $cb = CPANPLUS::Backend->new;
my @modules = $cb->search( type => 'module', allow => [ qr/^Test::/ ] );
print $_->name, "\n" foreach @modules