#!perl -w
use strict;
use DBI;

my $dbh = DBI->connect('dbi:mysql:database=msouth_reg_db;host=redacted.example.com', 'user', 'pass');
my $rc = $dbh->disconnect;
warn "dbh->disconnect returned [$rc]\n";
if (my $ping_val = $dbh->ping) {
    warn 'here is the thread id ['. $dbh->{mysql_thread_id} ."]\n";
    warn "ping returned [$ping_val]\n";
    warn "here are Apache-matching keys \%INC:". join "\n", grep {/Apache/} keys %INC;
}
else {
    warn "ping returned [$ping_val]";
}