use warnings; use strict; use Script::Singleton warn => 1; sleep 5;