use Script::Singleton; #### use Script::Singleton glue => 'UNIQUE GLUE STRING'; #### use warnings; use strict; use Script::Singleton warn => 1; sleep 5;