Help for this page

Select Code to Download

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

Select or download this

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