DBI->connect ( ... ) or die "Cannot connect: $DBI::errstr";