$dbh = DBI->connect($db_datasource, $db_user_name,
                    $db_password)
  or die("Could not connect!".$dbh -> errstr);

##</code><code>##

$dbh = DBI->connect($db_datasource, $db_user_name,
                    $db_password)
  or die("Could not connect!" . $DBI::errstr);