#!/usr/local/bin/perl5.8.0

use strict;
use BbkTools::BbkConfiguration;
use BbkTools::BbkSqlSelect;
use BbkTools::BbkAllTables;

# Standard setup of the database connection and
# Selection API object.
my $config = BbkTools::BbkConfiguration->new;
$config->getConnection();
my $query = BbkTools::BbkSqlSelect->new($config);
BbkTools::BbkAllTables::addModules($query);

# Specify return values and selection.
$query->addValues('collection', 'events');
$query->addSelector('release', '14.*');

# Execute query and return results.
my $sta= $query->execute or exit 1;
while (my $row = $sta->fetch) {
  print $row->events, ' ', $row->collection, "\n";
}