use DBIx::Abstract;

my $dbx = DBIx::Abstract->connect(...);

sub do_query {
   $dbx->ensure_connection;
   ## do the query;
}