use IPC::Shareable;

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

# Do scripty perl stuff here