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

$user="root";
$password="";

$dsn = "dbi:mysql:bible:localhost:3306";
$dbh = DBI->connect($dsn, $user, $password);

my (%bible,$sth,$dbh,$bible,$form_bible,@row);
$form_bible=$cgi_object->param("form_bible");

$sth = $dbh->prepare($bible{$form_bible});