Help for this page
package Semfile; ... undef $_[0]{'fh'}; } 1; # End of module
use Semfile; ... ... # then: $lock->release;