Test

my $sql = <<'END_SQL'; CREATE TABLE people ( id INTEGER PRIMARY KEY, fname VARCHAR(100), lname VARCHAR(100), email VARCHAR(100) UNIQUE NOT NULL, ##

##

#!/usr/local/bin/perl

### Setup environment 
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use CGI::Session qw/-ip-match/;  
use DBI;

my $q = CGI->new;

	### People
	my $dbfile = "/inetpub/wwwroot/data/cgi_test1.db"; 
	 
	my $dsn      = "dbi:SQLite:dbname=$dbfile";
	my $user_a     = "";
	my $password_a = "";
	my $dbh = DBI->connect($dsn, $user_a, $password_a, {
	   PrintError       => 0,
	   RaiseError       => 1,
	   AutoCommit       => 0,
	   FetchHashKeyName => 'NAME_lc',
		},) or die $dbh::errstr;
		
		

		my $fname = 'Joe';
		my $lname = 'Smith';
		my $email = 'red.jeep2334@gmail.com';   

	$dbh->do('INSERT INTO people (fname, lname, email) VALUES (?, ?, ?)',
	undef,
	$fname, $lname, $email);
    $dbh->commit();
	$dbh->disconnect();

print "Content-Type: text/html\n\n";
print " \n";
print "Test";
print "\n";
print "\n";
print "Test 103\n";
print "dbfile: $dbfile 
\n";
print "lg_name: $email 
\n";
print " \n";