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