if ( $@ ) {
    ++$ConnectAttempts;
    print "", ( $@ =~ /DB CONN FAIL/ )
                 ? "CONNECT TIMED OUT\n"
                 : "SOME OTHER CONNECTION PROBLEM\n";
}
else {
    print "CONNECT IS GOOD\n";
}