[squid-users] Perl script for blocking rogue Squid-killing port 80 scanning worms

Perl script. Detects descriptor-sapping port 80 worms. Substitute in your
own specific values for $city and "whereever.com". Everything else should
be fairly straightforward. Run it every five minutes out of cron.

I hope this helps some people. Worms were becoming a headache for me.

Paul