use DBI;
my $dbh=DBI->connect("dbi:SQLite:dbname=foo.sqlt", "", "");
$dbh->do("CREATE TABLE quotes (who, quote)");
$dbh->commit();
$dbh->disconnect();