#!/usr/bin/perl --
use strict; use warnings;
use DBI;
use DBD::SQLite;
Main( @ARGV );
exit( 0 );
sub Main {
    my $tmpfile = 'sqlite-deleteme.tmp';
    my $dbh = DBI->connect(
        "DBI:SQLite:database=$tmpfile",
        undef, undef,
        {qw/RaiseError 1/}
    );
    $dbh->do('CREATE TABLE test (id integer PRIMARY KEY, foo varchar(100))');
    roshambo( $dbh, 1, 1 => "ro" );
    roshambo( $dbh, 2, 2 => "sham" );
    roshambo( $dbh, 3, 3 => "bo" );
    roshambo( $dbh, 999, 999 => "999" );
    undef $dbh;
    unlink $tmpfile;
}
sub roshambo {
    warn "\n### @_\n";
    my( $dbh, $trace, $id, $foo ) = @_;
    $dbh->trace( $trace );
    my $sth_ins  = $dbh->prepare('INSERT INTO test (id, foo) values (?, ?)');
    $sth_ins->execute( $id, $foo );
    $sth_ins->finish;
    undef $sth_ins;
    $dbh->trace(0);
    warn "### @_\n\n";
}