#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use FindBin;
use File::Spec::Functions;
use Storable;
use lib "$FindBin::Bin/../lib";
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;

my $arg = shift || die "Pass a string to search for";

my $cpants = retrieve (catfile "$FindBin::Bin/../", "cpants.store")
  || die "Unable to find data";
$cpants = $cpants->{cpants};

foreach my $dist (sort keys %$cpants) {
  next unless $dist =~ /$arg/;
  print Dumper({$dist => $cpants->{$dist}});
  print "\n";
}