/usr/share/doc/libcpan-perl-releases-perl/examples/findhttp.pl is in libcpan-perl-releases-perl 1.62-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | use strict;
use warnings;
use HTTP::Tiny;
use JSON::PP ();
my $url = 'http://search.cpan.org/api/dist/perl';
my $resp = HTTP::Tiny->new( )->get( $url );
die "Oh dear\n" unless $resp->{success};
my $data = eval { JSON::PP::decode_json( $resp->{content} ) };
die "No data\n" unless $data;
{
use Data::Dumper::Concise;
print Dumper( $data );
}
for my $release ( @{ $data->{releases} } ) {
}
|