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

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

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