unless ( $log = Win32::EventLog->new("System",$computer) ) {
  log_data("Unable to open system log for $computer",4);
  next;
}