in reply to Infinte perl script - Part 2

If you fork, then have the child become a process group leader (via setsid), you too can be a daemon...
use POSIX qw(setsid); if (fork()) { exit; } else { setsid; } rest of your code here...