#! perl -slw
use strict;
use Time::HiRes qw[ time ];
use DBI;

our $N //= 1e3;

my $start = time;

my $dbh = DBI->connect( 'dbi:SQLite:dbname=1gb.db','','' )
    or die DBI::errstr;

my $sth = $dbh->prepare( 'select * from onegb where ROWID = ?' )
    or die DBI->errstr;

for( 1 .. $N ) {
    my $rowID = 1+int( rand 16*1024**2-1 );
    $sth->execute( $rowID )
        or die $sth->errstr;
    my $data = $sth->fetch
        or die $sth->errstr;
    my @row = @{ $data };
}

printf "Ave: %.6f seconds/record\n", ( time() - $start ) / $N;

__END__
c:\test>1gbdb -N=1e6
Ave: 0.000711 seconds/record