sub unlock {
   close (LOCK);
}
1;