#!/usr/bin/perl -w
use strict;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Data::Dumper;
use Module::CPANTS;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;
my $arg = shift || die "Pass a string to search for";
my $cpants = Module::CPANTS->new->data;
foreach my $dist (sort keys %$cpants) {
next unless $dist =~ /$arg/;
use Data::Dumper; print Dumper({ $dist => $cpants->{$dist}});
print "\n";
}