unless ($dbh->ping()) {
   print STDERR "Oops, we definitely have a problem\n";
}