use strict; my $eventlog; # only used by MSWin32 if ($^O eq "MSWin32") { no strict "subs"; use autouse Win32::EventLog => qw(Report new); $eventlog = Win32::EventLog->new("myscript"); } else { no strict "subs"; use autouse Sys::Syslog => qw(:DEFAULT setlogsock); Sys::Syslog::setlogsockt ('unix'); Sys::Syslog::openlog ("myscript", 'pid', "INFO"); }