my @toClose = ();

push @toClose, "SqlSthTools";

sub closeDatabase {
  foreach my $sth (@toClose) {
     my $cmd = '$' . $sth . '->finish()';
     eval $cmd;
  }
  $dbh->disconnect;
}