my $DBH = DBI->connect( ...);

# call setup method ...
foo->setup($DBH);

$DBH->disconnect();

# and for the setup method:

sub setup {
  my ($self,$DBH) = #_;
  ...
  $self->param ( 'mydbh' => $DBH );
}