Select Code to Download

my $dbh = DBI->connect(....) or die $DBI::errstr;

my $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1 });