I'm trying to find a way of including the modules I need dependant on the OS I find my script running on. I'm trying to avoid having two scripts.

As an example, on WinNT I'm using Win32::EventLog, while on *nix I'm using Sys::Syslog, however, I'm running into problems using require, and have also tried using 'use autouse', but I guess I'm getting something wrong in my delclaration.

Here's an example -

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");
}
[download]

When this is run on WinNT4 I get an Undefined Subroutine error for Win32::EventLog->new.

Can someone please advise me how I should be going about this :-)

Pete