Quick and dirty check that the module works (use actual
perl version instead of XXX)

-------------------------------8<------------------------
P='/usr/perl5/XXX/bin/perl -MDBD::SQLite'
DB=/var/tmp/db.sql
C="\$dbh=DBI->connect('dbi:SQLite:$DB');"
FILE=/usr/bin/ls

$P -e 'print $DBD::SQLite::VERSION, "\n"'

rm -f "$DB"
$P -e "$C"
if [ ! -e "$DB" ]; then
        echo "Fail - database not created"
        exit 1
fi
$P -e "$C"'
        $dbh->do("CREATE TABLE mytable( Bindata BLOB, date DATE)");
        $dbh->do("CREATE TRIGGER insert_blob_date AFTER INSERT ON mytable BEGIN UPDATE mytable SET date = DATETIME(\"NOW\"); END ;");
'

$P -e "$C"'
      my $blob = `cat '"$FILE"'`;
      my $sth = $dbh->prepare("INSERT INTO mytable VALUES (?, NULL)");
      $sth->bind_param(1, $blob, {TYPE => DBD::SQL_BLOB}
);
      $sth->execute();
'

$P -MDigest::MD5 -e "$C"'
      $sth = $dbh->prepare("SELECT Bindata FROM mytable");
      $sth->execute();
      my $row = $sth->fetch;
      my $blobo = $row->[0];
      print Digest::MD5::md5_hex($blobo), "\n";
'


md5sum "$FILE"
echo '.schema' | sqlite3 "$DB"
echo 'select date from mytable;' | sqlite3 "$DB"
-------------------------------8<------------------------


It should print
 - correct DBD::SQLite version printed
 - two equal MD5 hashes
 - database description (mytable and trigger insert_blob_date)
 - current date and time