if ($os_type eq "NT") {
  require Win32::EventLog;
  import Win32::EventLog qw / :DEFAULT /;

  my $eventlog_type;
  if ($priority ne "info") {
    $eventlog_type = EVENTLOG_WARNING_TYPE;
  } else {
    $eventlog_type = EVENTLOG_INFORMATION_TYPE;
  }

  $eventlog->Report({
                     EventType => $eventlog_type,
                     Strings   => $message,
                    });

}