my $my_connection =  ... or do {
   warn "DANG, I'M DEAD @Mydsn ";
   next;
}