Simple integrity check / IDS written in Perl