Select Code to Download

use warnings;
use strict;
...
print "procID: $lock\n";

sleep 5;

spek@scelia ~/scratch $ perl lock.pl
procID: 21241

spek@scelia ~/repos/ipc-shareable $ perl ~/scratch/lock.pl
spek@scelia ~/repos/ipc-shareable $

spek@scelia ~/repos/ipc-shareable $ perl ~/scratch/lock.pl
procID: 21339