my $dbh->db_handle($db_name) || die "SNAFU getting to $db_name: $!";
or
my $dbh->db_handle($db_name) || &explain_to_user_that_db_unavailable( $db_name );