unless ( $dbh->{'Active'} ) {
  # Some re-connection magic here
}