sub start { my $self = shift; my $name = $self->name; if (my $pid = fork()) { # parent exit 0; } #Child if (Proc::PID::File->running({name=>$name})) { die "Couldn't start: '$name' already running."; } $self->init_mailer_daemon; }