// in the main CGI script
sub dbh {
  $main::dbh ||= DBI->connect(...);
}

##</code><code>##

 main::dbh()->selectall_arrayref(...)