Select Code to Download

use Memoize;
memoize('dbi');
...
sub dbi {
  DBI->connect(yadda, yadda);
}

{
  my $dbh;
...
    $dbh ||= DBI->connect(yadda, yadda);
  }
}