{
  my $dbh;

  sub dbi {
    $dbh ||= DBI->connect(yadda, yadda);
  }
}