perl script for parsing/printing CIFS audit event logs