Select Code to Download

local2.*  /var/log/your_log_name

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

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

    return();
} # END syslog_event

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

man 3 syslog