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