sub closeDatabase {
 $SqlSthTools->finish();
 # usw.
 $dbh->disconnect;
}