If you are just looking for a solution, and it being in Perl or written in-house is not a requirement, perhaps something like Tripwire may do the job you are looking for. There is even a commercial version if support is necessary.