Help for this page
#!/usr/bin/env perl use strict; ... print "Enter to release\n"; <>; flock ( $lock_this, LOCK_UN ); print "Lock released\n";