{
  my $dbh;

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