There are some non-perl utilities for sending Event Log data to Syslog ... this could then be read as local data by any Perl code. Here is one i found on a quick Google search :

EventReporter

---

from the frivolous to the serious