{
  my $dbh;

  sub dbh
  {
    if (!$dbh)
    {
      # initialize dbh
    }
    $dbh;
  }

##</code><code>##

dbh()->prepare("...");
dbh()->do("...");