$handle=Win32::EventLog->new("C:\\Windows\\System32\\winevt\\Logs\\NTDS.evt")