#!/usr/bin/perl
use strict;
use POSIX ":sys_wait_h";

my $PidFile = "/var/run/<твой пид>.pid";	# PID-файл (идентификатор процесса)
my $RefreshInterval = 10; 

Daemonize();

sub Process {
	#Комманды демонизированного процесса
}

sub Daemonize {
	# При живом демоне не запускаемся
	if (TestMinion()){
		print "xxx is already running\n\n";
		exit(1);
	}
	my $NPId = fork(); # ! ВЕТВИМСЯ !
	if ($NPId){ # Родитель
		print "My pid is: ", $$, "\n";
		print "Daemon pid is: ", $NPId, "\n";
		open(FH, "+>" . $PidFile); # PID процесса - потомка
		print FH $NPId;
		close(FH);
		exit(0); # Выходим
	} else { # Демон
		POSIX::setsid(); # Отваливаем

		# Обработчики сигналов
		$SIG{'INT'} = "IGNORE";
		$SIG{'HUP'} = "IGNORE";
		$SIG{'TERM'} = \&SigTERM;
		$SIG{'CHLD'} = "IGNORE";

		for (;;){
			Process();
			sleep($RefreshInterval); # Спим
		}
	}
}

sub SigTERM {
	unlink($PidFile);
	exit(0);
}

#
# Проверка наличия процесса в памяти
#
sub TestMinion{
	my $NStatus = 0;
	if (-f $PidFile){ # Если есть такой pid файл
		open(FH, "<" . $PidFile); # Читаем pid
		my $NRootPId = <FH>;
		close(FH);
		if ($NRootPId) { # Если есть pid
			if (kill(0, $NRootPId)) { $NStatus = 1;	# Если процесс жив
			} else { unlink($PidFile); }		# иначе - стираем файл
		}
	}
	return $NStatus
}