#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = DBI->connect('dbi:SQLite:dbfile=kudra.sqlite',"","", {AutoCommit => 0});

my @statements;
{
  local $/;
  @statements = split /;/, <DATA>;
};

for my $statement (@statements) {
  print "$statement\n";
  eval {
    $dbh->do($statement);
    $dbh->commit;
  };
  $@ ||= $dbh->errstr;
  if ($@) {
    if ($statement =~ /^drop/i) {
      warn $@;
    } else {
      die $@;
    };
  };
};
$dbh->commit;
$dbh->disconnect;

__DATA__

create table person (
  id                INTEGER PRIMARY KEY,
  name              VARCHAR(256)
);

insert into person (name) values ("Corion");
insert into person (name) values ("Kudra");
insert into person (name) values ("vroom");
insert into person (name) values ("jcwren");