my ($dbh,$dsn,$db,$user,$password);

$user='tom';
$password='password';
$db='bible';

$dsn = "DBI:mysql:$db";
$dbh = DBI->connect($dsn, $user, $password) or die $DBI::errstr;

##-----------------------------------
#########################
# debug                 #
#########################
if($debug)
    {
    }

#########################
# Generate Magic Header #
#########################
$cgi_object=new CGI;

print $cgi_object->header('text/html');

##-------------------------------------------
my (%bible,$sth,$dbh,$bible,$form_bible,@row);
$form_bible=$cgi_object->param("form_bible");
%bible=(
		ALL=>"SELECT * FROM kjv",
		OT=>"SELECT * FROM kjv where bsect='O'",
		NT=>"SELECT * FROM kjv where bsect='N'");
$sth = $dbh->prepare("select * from kjv");

  $sth->execute();