my $dbh = DBI->connect(
   'DBI:mysql:database:host:mysql_read_default_file=~/.my.cnf',
   undef,undef,
   {RaiseError=>1}
);