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