use IPC::Shareable;

IPC::Shareable->singleton('LOCK');

# Do scripty perl stuff here

##</code><code>##

IPC::Shareable->singleton('LOCK', 1);

##</code><code>##

Process ID 14784 exited due to exclusive shared memory collision