# Deallocate the shared memory segment when exiting program.
  shmctl ($segment_id, IPC_RMID, 0);
  $sem->remove;