#!/usr/bin/perl 

BEGIN {
    $| = 1;
}

use strict;
use warnings;
use CPAN::Testers::WWW::Reports::Query::Reports;

my $query = CPAN::Testers::WWW::Reports::Query::Reports->new;
exit unless ($query);

my $result = $query->range(
    '20080300'
);

my @ids = sort keys %$result;
my $id  = $ids[0];

binmode STDOUT, ":encoding(UTF-8)";

print "id = $id,
    dist = 'result->{$id}{'dist'}',
    version = 'result->{$id}{'version'}'";

if (defined(my $data = $query->raw)) {
    chomp $data;
    print $data, "\n";
}
my $error = $query->error;