sub syslog_event {
    my ( $type, $message ) = @_;

    Sys::Syslog::setlogsock( 'unix' );
    openlog( 'daemon_name', '', 'local2' );

    $message =~ s/\s+$//;
    syslog( $type, $message );

    closelog();

    return();
} # END syslog_event