#!/usr/bin/perl -wuse strict;use DBI;use DBD::SQLite;my $DATABASE="punjab.db";my $tdir = "../html";my $dbh = DBI->connect("DBI:SQLite:dbname=$DATABASE;","","",        { RaiseError => 1, AutoCommit => 0 })        or die $DBI::errstr;my $db_version=0;my $heap;# Check db_version from dbmy $sth = $dbh->prepare("SELECT db_version FROM punjab_db");eval { $sth->execute() };if (!$@) {	my @row = $sth->fetchrow_array;	$db_version = $row[0];	$sth->finish;}if ($db_version < 1) {    $dbh->do("CREATE TABLE punjab_db (		db_version INTEGER NOT NULL)"	     );    $dbh->do("INSERT INTO punjab_db (db_version) VALUES(1)");       $dbh->do("CREATE TABLE transactions (                                     id INTEGER PRIMARY KEY NOT NULL,                                     session text,                                     event text,                                     time_stamp timestamp(14))	");		    $dbh->commit();    }# dump the database to an sql file$dbh->disconnect;