Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# The rest of the code goes here, immediately before
# terminating, you can release the lock
flock(EXCLUSIVELOCK, LOCK_UN);