use Sys::Syslog qw(:standard :macros);
Sys::Syslog::syslog(LOG_EMERG,"%s","Foo");

##</code><code>##

syslog: invalid level/facility: 0 at ./test.pl line 11

##</code><code>##

logger -p 0 -t test "Foo"