Proc::Daemon::Init({
    work_dir => '/tmp',
    setuid => 'some_uid'
});

##</code><code>##

$SIG{'__DIE__'} = sub{ write_to_log('FATAL! '.join(' ', @_)); die; };