use strict;
use warnings;
use CPANPLUS::Backend;

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

my $string = shift || die;

my $mod;

unless ( $mod = $cb->parse_module( module => $string ) ) {
   ($mod) = grep { $_->package_name eq $string } 
                 $cb->search( type => 'package', allow => [ qr/^\Q$string\E/ ], );
}

print $mod->name, ' ', $mod->package, "\n" if $mod;