use Sys::Syslog qw(:standard :macros);

openlog('foo', '', 'user');
syslog(LOG_EMERG,"%s","Foo");