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();