Have you tried profiling the script? See Devel::DProf

I may try and work out a 'ticketing' system
System V semaphores are useful for that. See IPC::SysV (although there are other ways to do it).