A syslog-driven IPS written in perl