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