if ($hashRef->{EventType} eq '1' or $hashRef->{EventType} eq '2'){ #print "$hashRef->{EventType}"; $zeit = &zeit($hashRef->{TimeGenerated},'jmt'); #print "$zeit\n"; Win32::EventLog::GetMessageText($hashRef); print "$hashRef->{Message}\n" if defined($hashRef->{Message}) and $zeit eq $aktzeit; }# ende if