#!/usr/bin/perl 
use strict;
$|++;

use DBI;

# DBD::SQLite is 


my $dbh         = DBI->connect("dbi:SQLite:dbname=sample.db","","");
my $sql         = 'SELECT * FROM recon_versions;';
my $sth         = $dbh->prepare($sql) or die ($dbh->errstr);
my $rows_ref    = $sth->fetchall_arrayref() or die ($dbh->errstr);
$sth->finish or die $dbh->errstr;
$dbh->disconnect or die $dbh->errstr;