my $sth = ($dbx->ping ? $dbx : $dby)->prepare('select 1+1');

##</code><code>##

my $dbh = connect($x_string, $x_nam, $x_pass)
        || connect($y_string, $y_nam, $y_pass)
        or die 'No db!';