Help for this page

Select Code to Download

Select or download this

    foreach my $k ( keys %DBhandles ) {

      $DBhandles{ $k }{ sth }->finish;
      $DBhandles{ $k }{ dbh }->disconnect; 
    }