Help for this page

Select Code to Download

Select or download this

BEGIN {
    if ($^O eq "MSWin32") {
        use Win32::EventLog qw(Report new);
...
        Sys::Syslog::setlogsockt ('unix');
        Sys::Syslog::openlog ("myscript", 'pid', "INFO");
    }