sub clean_db_h {

  # do all the clean needed in the db

  #
  # next clean in 3600 sec
  $_[KERNEL]->delay( clean_db => 3600);
};