Jan 19 10:29:09 mgmt yum[26377]: Installed: perl-Unix-Syslog-1.1-3.el6.x86_64

##</code><code>##

use constant LOGINFO => 'LOG_INFO';
use constant LOGPID => 'LOG_PID';

# Open syslog channel
openlog('my-program.pl', @{[ LOGPID ]}, 3);

# Daemonise
$daemon->Init();
syslog (@{[ LOGINFO ]}, "my-program.pl started and daemonised");

# Run the thing
&main_function();

closelog();

##</code><code>##

Jan 19 17:20:46 mgmt my-program.pl: my-program.pl started and daemonised

##</code><code>##

Argument "LOG_PID" isn't numeric in subroutine entry at ./my-program.pl line 66.