#!/usr/bin/perl 
 
use DBI qw(:sql_types); 
 
my $dbfile = "tmp.db"; 
 
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","",""); 
 
 
 
$sth = $dbh->prepare("CREATE TABLE logicFcns (logicFcnsKey INTEGER PRIMARY KEY, fcn TEXT)") or die $dbh->errstr;  
$sth->execute() or die $dbh->errstr;  
$sth = $dbh->prepare("insert into logicFcns (fcn) values ('and_a_b')"); 
$sth->execute(); 
 
$sth = $dbh->prepare("SELECT * FROM logicFcns"); 
  $sth->execute(); 
  my $row = $sth->fetch; 
  my $blobo = $row->[1]; 
 
  print "$row\n"; 
  print "$blobo\n"; 
 
 
$sth->finish; 
$rc = $dbh->disconnect  or warn $dbh->errstr;