sub dbh {
  unless ($dbh) {
    # connect to the database now.
  }
  return $dbh;
}