$dbh->connect(assuming_relevant_connection_params_are_here);

##</code><code>##

my $dbh = DBI->connect(
   'DBI:driver:database:host', 'user', 'pass',
   {RaiseError => 1, HandleError => \&bail_out},
);