sub make_report1 {

  my $dbh = &_get_dbh;
  &_do_make_report($dbh);
  $dbh->disconnect;
  1;
}

sub _do_make_report {
   my $dbh = shift;

   ## etc...
}

sub make_all_reports {

  # connect to the database
  my $dbh = &_get_dbh;

  &_do_make_summary_report($dbh);
  &_do_make_report1($dbh);
  &_do_make_report1($dbh);

  ...

  # close the database connection
  $dbh->disconnect;

  # return happy and healthy
  return (1);

}