The answer is in the documentation for DBI, under the connect statement:

$dbh = DBI->connect($data_source, $username, $password)
    or die $DBI::errstr;
$dbh = DBI->connect($data_source, $username, $password, \%attr)
    or die $DBI::errstr;
[download]

--
Love justice; desire mercy.