sub close_queues
{
  $exclusion_lock -> down();
  $process_q -> end(); 
}