7-06-09.
=head1 SYNOPSIS
In your command-line script (e.g. named list-cpan-dists):
use JSON qw(decode_json);
use LWP::Simple;
use Perinci::CmdLine::Easy qw(run_cmdline_app);
run_cmdline_app(
status:latest&fields=name&size=5000"
or die "Can't query MetaCPAN";
$res = $json->decode($res);
die "MetaCPAN timed out\n" if $res->{timed_out};
my @dists;