Help for this page
Proc::Daemon::Init({ work_dir => '/tmp', setuid => 'some_uid' });
$SIG{'__DIE__'} = sub{ write_to_log('FATAL! '.join(' ', @_)); die; };