local2.*  /var/log/your_log_name

##</code><code>##

use Sys::Syslog qw(:DEFAULT setlogsock);

##</code><code>##

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

##</code><code>##

syslog_event( 'info', 'daemon starting' );

##</code><code>##

man 3 syslog