# ------------------------------------------------
# spawn completely detached deamon
sub BaseForkDeamon
{
	return 1 if (fork());
	POSIX::setsid();
	close STDOUT; close STDIN; close STDERR;
	close CGI::Carp::SAVEERR; # <-- close LOG
	return 0;
};

##</code><code>##

It's like this:
# ------------------------------------------------
# spawns a deamon
sub ForkDeamon
{
	return 1 if (fork());
	POSIX::setsid();
	close STDOUT; close STDIN; close STDERR;
	return 0;
};