$dbh = DBI->connect($data_source, $user, $password) or die $DBI::errstr;