use Log::Log4perl qw(get_logger);
use Proc::Daemon;

Log::Log4perl->init_and_watch( '/tmp/test_log_daemon.conf', 10 );
# Proc::Daemon::Init();

while (1)
{
    my $logger = get_logger('TEST');
    $logger->debug("Testing...");
    sleep 5;
}

__END__

log4perl.rootLogger                = DEBUG, FileAppndr1
log4perl.logger.TEST = DEBUG
log4perl.appender.FileAppndr1          = Log::Log4perl::Appender::File
log4perl.appender.FileAppndr1.filename = /tmp/test_log_daemon.log
log4perl.appender.FileAppndr1.mode     = append
log4perl.appender.FileAppndr1.umask    = 0006
log4perl.appender.FileAppndr1.layout   = PatternLayout
log4perl.appender.FileAppndr1.layout.ConversionPattern = %d{ISO8601} %H %p> [%c] %F{1}(%L) %M - %m%n