my @log_type =("Application", "Security", "Setup", "System", "Forwarded Events");
my $total_events = 0;

foreach $logs_type (@log_type) {
  #print "$logs_type\n";
  Win32::EventLog::Open($EventLog, $logs_type,'') 
    or die "Could not open System log:$^E\n";
  $EventLog->Win32::EventLog::GetNumber($numevents);

  $total_events += $numevents;

  # print "$EventLog->Win32::EventLog::GetNumber($numevents)\n";
}

print "Total number of events: $total_events\n";