Select Code to Download

use DBIx::Abstract;

...
   $dbx->ensure_connection;
   ## do the query;
}

$dbh = DBI->connect(...);

...

   ## do query.
}