• chdir to /
• close all your file descriptors (and reopen them as neccesary, e.g. STDOUT and STDERR to a log file)
• fork again to be able to change the process group, and adopted by init
• call setsid() (see POSIX) to start a new session, i.e. to become a process group leader
• set up signal handlers as approriate for your daemon

Of course the processes from which you have forked must exit immediately after the fork.

Your daemon should now be safe. See the section Complete Dissociation of Child from Parent in perlipc.

Your

   _start => sub { qx(/etc/init.d/asterisk start); }
[download]

subroutine should do that, and finally exec /etc/init.d/asterisk start after checking whether it is running already.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}