if (`uname` =~ /Linux/) {
  # do Sys::Syslog stuff here
} elseif (`set os` =~ /windows/i) {
  # do Win32::EventLog stuff here
} else { die "hmmm, where do I log\n" }