#!/usr/bin/perl -w 

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

#若要使用setlogsock则需use Sys::Syslog qw(:DEFAULT setlogsock); 

print $$; 

my $message=system("w"); 

#通过internet域套接字或通过本地UNIX域套接字连接SYSLOGD,$socktype : inet(default) unix 

$socktype="unix"; 

setlogsock($socktype); 

#$identity,$options,$facility:服务器标识符,一组选项消息类型 

#$options: cons,ndelay,nowait,pid : 若发送到syslogd失败则直接写到控制台,不等待立刻传输,包括PID,不等待被传输就返回 

$identity="root"; 

@options=('cons','pid'); 

#$facility 定义了消息类型如下: 

#       auth            用户认证 

#       authpriv        有特权的用户认证 

#       cron            cron守护进程 

#       daemon          各种系统守护进程 

#       ftp             ftp守护进程 

#       kern            内核消息 

#       local0-local7   保留用于本地用法 

#       lpr             打印机 

#       mail            邮件 

#       news            新闻 

#       syslog          内部syslog 

#       uucp            uucp系统 

#       user            各种用户程序来的消息 

$facility="local0"; 

openlog($identity,\@options,$facility); 

#syslog 优先级:  emerg alert crit err warning notice info debug 

syslog('err',$message);