Select Code to Download

our @connection = ($dsn, $user, $passwd, \%options);
our $dbh = DBI->connect_cached( @connection );
...

    ## do query ##
}

unless ($dbh->ping) {
    $dbh = DBI->connect(@connection);
}