Select Code to Download

$dbh->connect(assuming_relevant_connection_params_are_here);

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