Select Code to Download

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