# first case:
use Process::Singleton qw(:auto_verbose);

# second case:
use Process::Singleton qw(:auto);

# third case:
use Process::Singleton qw(is_running);
if (is_running()) {
   ...
} else {
   ...
}