perlpreben

Though this is not a perl solution I think you may be interested in untangle which features, among many other things, an Attack-Blocker

Martin