in reply to Database connection checking.

$dbh->ping

man DBI

In Section Seekers of Perl Wisdom