my @toClose = ();

push @toClose, $SqlSthTools;

sub closeDatabase {
  foreach my $sth (@toClose) {
    $sth->finish();
  }
  $dbh->disconnect;
}