use Memoize;
memoize('dbi');

sub dbi {
  DBI->connect(yadda, yadda);
}

##</code><code>##

{
  my $dbh;

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