Select Code to Download

use Fcntl ':flock'; # import LOCK_* constants
INIT{
...
  flock *{0}, LOCK_EX|LOCK_NB
    or die "$0 is already running somewhere!\n";
}