$evHandle->Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEQUENTIAL_READ,0,$hr) ||die; use Data::Dumper;say Dumper($hr); Win32::EventLog::GetMessageText($hr);# Try to decode the # message text? print "Computer:".$hr->{Computer}." Source:".$hr->{Source}"; print " TS:".scalar(gmtime($hr->{TimeGenerated})); print " Category:".$hr->{Category}; print " EventType:".$hr->{EventType}." TXT:".$hr->{Message};